--- a/tools/pas2c/PascalBasics.hs	Sun Nov 11 15:14:18 2012 +0100
+++ b/tools/pas2c/PascalBasics.hs	Sun Nov 11 16:44:40 2012 +0100
@@ -18,6 +18,7 @@
     , nestedComments = False
     , identStart     = letter <|> oneOf "_"
     , identLetter    = alphaNum <|> oneOf "_"
+    , opLetter       = letter
     , reservedNames  = [
             "begin", "end", "program", "unit", "interface"
             , "implementation", "and", "or", "xor", "shl"
@@ -27,7 +28,6 @@
             , "downto", "div", "mod", "record", "set", "nil"
             , "cdecl", "external", "if", "then", "else"
             ] -- ++ builtin
-    , reservedOpNames= []
     , caseSensitive  = False
     }