--- a/Parser.st	Mon Nov 18 19:11:13 2002 +0100
+++ b/Parser.st	Tue Nov 19 11:12:39 2002 +0100
@@ -4849,13 +4849,16 @@
     "/ make it a block evaluation
     numArgs := argList size.
     numArgs == 0 ifTrue:[
-        ^ UnaryNode receiver:receiver selector:#eval
-    ].
-    evalSelectors := #( #'evalWith:'
-                       #'evalWith:with:'
-                       #'evalWith:with:with:'
-                       #'evalWith:with:with:with:'
-                       #'evalWith:with:with:with:with:'
+        ^ UnaryNode receiver:receiver selector:#value
+    ].
+    evalSelectors := #( #'value:'
+                       #'value:value:'
+                       #'value:value:value:'
+                       #'value:value:value:value:'
+                       #'value:value:value:value:value:'
+                       #'value:value:value:value:value:value:'
+                       #'value:value:value:value:value:value:value:'
+                       #'value:value:value:value:value:value:value:value:'
                      ).
 
     numArgs <= evalSelectors size ifTrue:[
@@ -4868,7 +4871,7 @@
     "/ gen argument vector
     ^ MessageNode 
             receiver:receiver 
-            selector:#evalWithArguments:
+            selector:#valueWithArguments:
             args:(self genMakeArrayWith:argList).
 
     "
@@ -7010,7 +7013,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.358 2002-11-18 18:11:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.359 2002-11-19 10:12:39 cg Exp $'
 ! !
 
 Parser initialize!