@@ -371,6 +371,10 @@ toSlides bs = do
371371 concat `fmap` mapM (elementToBeamer slideLevel) (hierarchicalize bs')
372372
373373elementToBeamer :: PandocMonad m => Int -> Element -> LW m [Block]
374+elementToBeamer _slideLevel (Blk (Div attr bs)) = do
375+ -- make sure we support "blocks" inside divs
376+ bs' <- concat `fmap` mapM (elementToBeamer 0) (hierarchicalize bs)
377+ return [Div attr bs']
374378elementToBeamer _slideLevel (Blk b) = return [b]
375379elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)
376380 | lvl > slideLevel = do