@@ -274,10 +274,11 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)
274274 let hasCode (Code _ _) = [True]
275275 hasCode _ = []
276276 opts <- gets stOptions
277− let fragile = not $ null $ query hasCodeBlock elts ++
277+ let fragile = "fragile" `elem` classes ||
278+ not (null $ query hasCodeBlock elts ++
278279 if writerListings opts
279280 then query hasCode elts
280− else []
281+ else [])
281282 let allowframebreaks = "allowframebreaks" `elem` classes
282283 let optionslist = ["fragile" | fragile] ++
283284 ["allowframebreaks" | allowframebreaks]