diff -r a2f39cb9af62 -r 91adc9ee7b8c tools/PascalBasics.hs
--- a/tools/PascalBasics.hs	Fri Jan 06 01:51:04 2012 +0100
+++ b/tools/PascalBasics.hs	Sat Jan 07 00:10:47 2012 +0400
@@ -17,7 +17,7 @@
     , commentLine    = "//"
     , nestedComments = False
     , identStart     = letter <|> oneOf "_"
-    , identLetter    = alphaNum <|> oneOf "_."
+    , identLetter    = alphaNum <|> oneOf "_"
     , reservedNames  = [
             "begin", "end", "program", "unit", "interface"
             , "implementation", "and", "or", "xor", "shl"