@@ -778,12 +778,17 @@ blockToHtml opts (Div attr@(ident, classes, kvs') bs) = do
778778 classes' = case slideVariant of
779779 NoSlides -> classes
780780 _ -> filter (\k -> k /= "incremental" && k /= "nonincremental") classes
781+ let paraToPlain (Para ils) = Plain ils
782+ paraToPlain x = x
783+ let bs' = if "csl-entry" `elem` classes'
784+ then walk paraToPlain bs
785+ else bs
781786 contents <- if "columns" `elem` classes'
782787 then -- we don't use blockListToHtml because it inserts
783788 -- a newline between the column divs, which throws
784789 -- off widths! see #4028
785− mconcat <$> mapM (blockToHtml opts) bs
786− else blockListToHtml opts' bs
790+ mconcat <$> mapM (blockToHtml opts) bs'
791+ else blockListToHtml opts' bs'
787792 let contents' = nl opts >> contents >> nl opts
788793 let (divtag, classes'') = if html5 && "section" `elem` classes'
789794 then (H5.section, filter (/= "section") classes')