@@ -264,7 +264,7 @@ blockToHtml opts (Para [Image txt (s,tit)]) = do
264264 img <- inlineToHtml opts (Image txt (s,tit))
265265 capt <- inlineListToHtml opts txt
266266 return $ thediv ! [theclass "figure"] <<
267− [img, thediv ! [theclass "caption"] << capt]
267+ [img, paragraph ! [theclass "caption"] << capt]
268268blockToHtml opts (Para lst) = inlineListToHtml opts lst >>= (return . paragraph)
269269blockToHtml _ (RawHtml str) = return $ primHtml str
270270blockToHtml _ (HorizontalRule) = return $ hr