@@ -398,10 +398,10 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)
398398 hasCode _ = []
399399 let fragile = "fragile" `elem` classes ||
400400 not (null $ query hasCodeBlock elts ++ query hasCode elts)
401− let frameoptions = ["allowdisplaybreaks", "allowframebreaks",
401+ let frameoptions = ["allowdisplaybreaks", "allowframebreaks", "fragile",
402402 "b", "c", "t", "environment",
403403 "label", "plain", "shrink", "standout"]
404− let optionslist = ["fragile" | fragile] ++
404+ let optionslist = ["fragile" | fragile && lookup "fragile" kvs == Nothing] ++
405405 [k | k <- classes, k `elem` frameoptions] ++
406406 [k ++ "=" ++ v | (k,v) <- kvs, k `elem` frameoptions]
407407 let options = if null optionslist