@@ -287,7 +287,7 @@ definitionListItemToRST (label, defs) = do
287287 label' <- inlineListToRST label
288288 contents <- liftM vcat $ mapM blockListToRST defs
289289 tabstop <- get >>= (return . writerTabStop . stOptions)
290− return $ label' $$ nest tabstop (contents <> cr)
290+ return $ label' $$ nest tabstop (nestle contents <> cr)
291291
292292-- | Convert list of Pandoc block elements to RST.
293293blockListToRST :: [Block] -- ^ List of block elements