@@ -782,8 +782,8 @@ parseBlock (Elem e) =
782782 "para" -> parseMixed para (elContent e)
783783 "formalpara" -> do
784784 tit <- case filterChild (named "title") e of
785− Just t -> para . strong . (<> str ".") <$>
786− getInlines t
785+ Just t -> divWith ("",["formalpara-title"],[]) .
786+ para . strong <$> getInlines t
787787 Nothing -> return mempty
788788 (tit <>) <$> parseMixed para (elContent e)
789789 "simpara" -> parseMixed para (elContent e)