@@ -494,7 +494,8 @@ addToHeaderList (ident,classes,kvs) text = do
494494atxHeader :: MarkdownParser (F Blocks)
495495atxHeader = try $ do
496496 level <- many1 (char '#') >>= return . length
497− notFollowedBy (char '.' <|> char ')') -- this would be a list
497+ notFollowedBy $ guardEnabled Ext_fancy_lists >>
498+ (char '.' <|> char ')') -- this would be a list
498499 skipSpaces
499500 text <- trimInlinesF . mconcat <$> many (notFollowedBy atxClosing >> inline)
500501 attr <- atxClosing