@@ -471,7 +471,9 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)
471471 "b", "c", "t", "environment",
472472 "label", "plain", "shrink", "standout",
473473 "noframenumbering"]
474− let optionslist = ["fragile" | fragile && isNothing (lookup "fragile" kvs)] ++
474+ let optionslist = ["fragile" | fragile
475+ , isNothing (lookup "fragile" kvs)
476+ , "fragile" `notElem` classes] ++
475477 [k | k <- classes, k `elem` frameoptions] ++
476478 [k ++ "=" ++ v | (k,v) <- kvs, k `elem` frameoptions]
477479 let options = if null optionslist