@@ -250,7 +250,9 @@ elementToHtml _slideLevel opts (Blk block) = blockToHtml opts block
250250elementToHtml slideLevel opts (Sec level num id' title' elements) = do
251251 let slide = writerSlideVariant opts /= NoSlides && level <= slideLevel
252252 modify $ \st -> st{stSecNum = num} -- update section number
253− header' <- blockToHtml opts (Header 1 title') -- always use level 1 for slide titles
253+ -- always use level 1 for slide titles
254+ let level' = if slide then 1 else level
255+ header' <- blockToHtml opts (Header level' title')
254256 innerContents <- mapM (elementToHtml slideLevel opts) elements
255257 let header'' = if (writerStrictMarkdown opts ||
256258 writerSectionDivs opts ||