--- a/PrimitiveNode.st	Thu Mar 27 23:31:40 2003 +0100
+++ b/PrimitiveNode.st	Fri Mar 28 15:39:23 2003 +0100
@@ -116,14 +116,14 @@
 
 !PrimitiveNode methodsFor:'evaluation'!
 
-evaluate
+evaluateExpressionIn:anEnvironment
     "catch evaluation"
 
     optional ifTrue:[^ nil].
     self error:'cannot evaluate primitives' mayProceed:true
 !
 
-evaluateExpression
+evaluateIn:anEnvironment
     "catch evaluation"
 
     optional ifTrue:[^ nil].
@@ -143,5 +143,5 @@
 !PrimitiveNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.19 2000-06-24 15:42:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.20 2003-03-28 14:39:00 cg Exp $'
 ! !