diff --git a/src/Text/Pandoc/Slides.hs b/src/Text/Pandoc/Slides.hs
index 8fb1b63aa..4a53a1c23 100644
--- a/src/Text/Pandoc/Slides.hs
+++ b/src/Text/Pandoc/Slides.hs
@@ -22,6 +22,7 @@ getSlideLevel = go 6
   where go least (Header n _ _ : x : xs)
                  | n < least && nonHOrHR x = go n xs
                  | otherwise               = go least (x:xs)
+        go least (Div _ bs : xs) = min (go least bs) (go least xs)
         go least (_ : xs) = go least xs
         go least [] = least
         nonHOrHR Header{}       = False
@@ -45,4 +46,6 @@ prepSlides slideLevel = ensureStartWithH . splitHrule . extractRefsHeader
                _ -> bs
         ensureStartWithH bs@(Header n _ _:_)
                        | n <= slideLevel = bs
+        ensureStartWithH bs@(Div _ (Header n _ _:_) : _)
+                       | n <= slideLevel = bs
         ensureStartWithH bs              = Header slideLevel nullAttr [Str "\0"] : bs