@@ -345,7 +345,7 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)
345345 not (null $ query hasCodeBlock elts ++ query hasCode elts)
346346 let frameoptions = ["allowdisplaybreaks", "allowframebreaks",
347347 "b", "c", "t", "environment",
348− "label", "plain", "shrink"]
348+ "label", "plain", "shrink", "standout"]
349349 let optionslist = ["fragile" | fragile] ++
350350 [k | k <- classes, k `elem` frameoptions] ++
351351 [k ++ "=" ++ v | (k,v) <- kvs, k `elem` frameoptions]