@@ -485,7 +485,8 @@ blockToHtml opts (DefinitionList lst) = do
485485 do term' <- liftM (H.dt) $ inlineListToHtml opts term
486486 defs' <- mapM ((liftM (\x -> H.dd $ (x >> nl opts))) .
487487 blockListToHtml opts) defs
488− return $ mconcat $ nl opts : term' : nl opts : defs') lst
488+ return $ mconcat $ nl opts : term' : nl opts :
489+ intersperse (nl opts) defs') lst
489490 let lst' = H.dl $ mconcat contents >> nl opts
490491 let lst'' = if writerIncremental opts
491492 then lst' ! A.class_ "incremental"