@@ -1134,7 +1134,7 @@ paragraph = do
1135preamble :: LP Blocks
1135preamble :: LP Blocks
1136preamble = mempty <$> manyTill preambleBlock beginDoc
1136preamble = mempty <$> manyTill preambleBlock beginDoc
1137− where beginDoc = lookAhead $ controlSeq "begin" *> string "{document}"
1137+ where beginDoc = lookAhead $ try $ controlSeq "begin" *> string "{document}"
1138 preambleBlock = (void comment)
1138 preambleBlock = (void comment)
1139 <|> (void sp)
1139 <|> (void sp)
1140 <|> (void blanklines)
1140 <|> (void blanklines)