diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index f7465e7..4179423 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -335,10 +335,15 @@ parseUListLineItem = do
   firstChar <- choice (map char ['*', '+', '-'])
   char ' ' -- At least one space between list indicator and list text.
   skipSpaces
-  restOfLine <- manyTill get (void (char '\n') <++ eof)
-  let restOfLineParsed = fst $ leftmostLongestParse parseLine restOfLine
+  restOfLine <- many1 parseListLineToken
+  void (char '\n') <++ eof
   nestedList <- parseUListNested <++ return (Unit "")
-  return $ Line [restOfLineParsed, nestedList]
+  return $ Line [Line restOfLine, nestedList]
+
+-- restOfLine <- manyTill get (void (char '\n') <++ eof)
+-- let restOfLineParsed = fst $ leftmostLongestParse parseLine restOfLine
+-- nestedList <- parseUListNested <++ return (Unit "")
+-- return $ Line [restOfLineParsed, nestedList]
 
 -- Parse an unordered list paragraph item.
 -- This is defined as a line item, followed by an empty line, followed by one or more