diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index b0f39af..f7465e7 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -333,6 +333,7 @@ parseUListNested = do
 parseUListLineItem :: ReadP MdToken
 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