@@ -735,9 +735,9 @@ anyOrderedListStart = try $ do
735735 skipNonindentSpaces
736736 notFollowedBy $ string "p." >> spaceChar >> digit -- page number
737737 res <- do guardDisabled Ext_fancy_lists
738− many1 digit
738+ start <- many1 digit >>= safeRead
739739 char '.'
740− return (1, DefaultStyle, DefaultDelim)
740+ return (start, DefaultStyle, DefaultDelim)
741741 <|> do (num, style, delim) <- anyOrderedListMarker
742742 -- if it could be an abbreviated first name,
743743 -- insist on more than one space