@@ -33,7 +33,7 @@ module Text.Pandoc.Readers.Markdown (
3333
3434import Data.List ( transpose, isPrefixOf, isSuffixOf, sortBy, findIndex, intercalate )
3535import Data.Ord ( comparing )
36−import Data.Char ( isAlphaNum, isUpper )
36+import Data.Char ( isAlphaNum )
3737import Data.Maybe
3838import Text.Pandoc.Definition
3939import Text.Pandoc.Shared
@@ -479,7 +479,7 @@ anyOrderedListStart = try $ do
479479 -- if it could be an abbreviated first name, insist on more than one space
480480 if delim == Period && (style == UpperAlpha || (style == UpperRoman &&
481481 num `elem` [1, 5, 10, 50, 100, 500, 1000]))
482− then char '\t' <|> (char ' ' >>~ notFollowedBy (satisfy isUpper))
482+ then char '\t' <|> (try $ char ' ' >> spaceChar)
483483 else spaceChar
484484 skipSpaces
485485 return (num, style, delim)