@@ -341,8 +341,10 @@ listItemToRTF :: PandocMonad m
341341listItemToRTF alignment indent marker [] = return $
342342 rtfCompact (indent + listIncrement) (negate listIncrement) alignment
343343 (marker ++ "\\tx" ++ show listIncrement ++ "\\tab ")
344−listItemToRTF alignment indent marker list = do
345− (first:rest) <- mapM (blockToRTF (indent + listIncrement) alignment) list
344+listItemToRTF alignment indent marker (listFirst:listRest) = do
345+ let f = blockToRTF (indent + listIncrement) alignment
346+ first <- f listFirst
347+ rest <- mapM f listRest
346348 let listMarker = "\\fi" ++ show (negate listIncrement) ++ " " ++ marker ++
347349 "\\tx" ++ show listIncrement ++ "\\tab"
348350 let insertListMarker ('\\':'f':'i':'-':d:xs) | isDigit d =