--- a/tools/PascalParser.hs	Fri Nov 18 12:47:40 2011 -0500
+++ b/tools/PascalParser.hs	Sat Nov 19 19:30:20 2011 +0300
@@ -630,6 +630,6 @@
 builtInFunction e = do
     name <- choice $ map (\s -> try $ caseInsensitiveString s >>= \i -> notFollowedBy alphaNum >> return i) builtin
     spaces
-    exprs <- many1 e
+    exprs <- parens pas $ commaSep1 pas $ e
     spaces
     return (name, exprs)