@@ -1067,8 +1067,8 @@ str = do
1067 then case likelyAbbrev result of
1067 then case likelyAbbrev result of
1068 [] -> return $ Str result
1068 [] -> return $ Str result
1069 xs -> choice (map (\x ->
1069 xs -> choice (map (\x ->
1070− try (string x >> char ' ' >>
1070+ try (string x >> oneOf " \n" >>
1071− notFollowedBy spaceChar >>
1071+ lookAhead letter >>
1072 return (Str $ result ++ spacesToNbr x ++ "\160"))) xs)
1072 return (Str $ result ++ spacesToNbr x ++ "\160"))) xs)
1073 <|> (return $ Str result)
1073 <|> (return $ Str result)
1074 else return $ Str result
1074 else return $ Str result