--- a/tools/PascalParser.hs	Fri Apr 20 22:56:56 2012 +0400
+++ b/tools/PascalParser.hs	Fri Apr 20 23:03:20 2012 +0400
@@ -598,7 +598,7 @@
 builtInFunction e = do
     name <- choice $ map (\s -> try $ caseInsensitiveString s >>= \i -> notFollowedBy alphaNum >> return i) builtin
     spaces
-    exprs <- option [] $ parens pas $ commaSep1 pas $ e
+    exprs <- option [] $ parens pas $ option [] $ commaSep1 pas $ e
     spaces
     return (name, exprs)