diff --git a/src/Text/Pandoc/Readers/Mdoc.hs b/src/Text/Pandoc/Readers/Mdoc.hs
index 3acd2e31ea19..205438d171d2 100644
--- a/src/Text/Pandoc/Readers/Mdoc.hs
+++ b/src/Text/Pandoc/Readers/Mdoc.hs
@@ -1037,12 +1037,12 @@ parseColumnList :: PandocMonad m => MdocParser m Blocks
 parseColumnList = do
   literal "-column"
   many skipListArgument
-  _ <- litsToText -- XXX use the column widths?
+  _ <- litsToText
   eol
   rows <- many listRow
   return $ B.simpleTable [] rows
   where
-    listRow = macro "It" >> fmap B.plain <$> sepBy parseInline (macro "Ta")
+    listRow = macro "It" >> fmap B.plain <$> sepBy parseInlines (macro "Ta")
 
 parseBl :: PandocMonad m => MdocParser m Blocks
 parseBl = do