@@ -310,8 +310,10 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen
310310 else H.div
311311 let attr = (id',classes',keyvals)
312312 return $ if titleSlide
313− then mconcat $
314− (addAttrs opts attr $ secttag $ header') : innerContents
313+ then (if writerSlideVariant opts == RevealJsSlides
314+ then H5.section
315+ else id) $ mconcat $
316+ (addAttrs opts attr $ secttag $ header') : innerContents
315317 else if writerSectionDivs opts || slide
316318 then addAttrs opts attr
317319 $ secttag $ inNl $ header' : innerContents