@@ -278,15 +278,13 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen
278278 let slide = writerSlideVariant opts /= NoSlides && level <= slideLevel
279279 let num' = zipWith (+) num (writerNumberOffset opts ++ repeat 0)
280280 modify $ \st -> st{stSecNum = num'} -- update section number
281− -- always use level 1 for slide titles
282− let level' = if slide then 1 else level
283281 let titleSlide = slide && level < slideLevel
284282 header' <- if title' == [Str "\0"] -- marker for hrule
285283 then return mempty
286284 else do
287285 modify (\st -> st{ stElement = True})
288286 res <- blockToHtml opts
289− (Header level' (id',classes,keyvals) title')
287+ (Header level (id',classes,keyvals) title')
290288 modify (\st -> st{ stElement = False})
291289 return res
292290