@@ -695,7 +695,7 @@ directive' = do
695695 do bod <- parseFromString' parseBlocks $ top ++ "\n\n" ++ body'
696696 let lab = case label of
697697 "admonition" -> mempty
698− (l:ls) -> B.divWith ("",["admonition-title"],[])
698+ (l:ls) -> B.divWith ("",["title"],[])
699699 (B.para (B.str (toUpper l : ls)))
700700 [] -> mempty
701701 return $ B.divWith (name,label:classes,keyvals) (lab <> bod)