--- a/AssignmentNode.st	Fri Mar 28 15:39:23 2003 +0100
+++ b/AssignmentNode.st	Fri Mar 28 15:41:56 2003 +0100
@@ -228,9 +228,10 @@
 
 !AssignmentNode methodsFor:'evaluation'!
 
-evaluate
+evaluateIn:anEnvironment
     |value|
-    value := expression evaluate.
+
+    value := expression evaluateIn:anEnvironment.
     variable store:value.
     ^ value
 ! !
@@ -264,5 +265,5 @@
 !AssignmentNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.34 2001-08-13 13:58:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.35 2003-03-28 14:40:35 cg Exp $'
 ! !