--- a/UnaryNode.st	Fri Mar 28 15:39:23 2003 +0100
+++ b/UnaryNode.st	Fri Mar 28 15:41:56 2003 +0100
@@ -267,15 +267,15 @@
 
 !UnaryNode methodsFor:'evaluation'!
 
-evaluate
+evaluateIn:anEnvironment
     "evaluate the expression represented by the receiver"
 
     selector := selector asSymbol.
 
     receiver isSuper ifTrue:[
-        ^ super evaluate
+        ^ super evaluateIn:anEnvironment
     ].
-    ^ (receiver evaluate) perform:selector
+    ^ (receiver evaluateIn:anEnvironment) perform:selector
 ! !
 
 !UnaryNode methodsFor:'printing & storing'!
@@ -343,5 +343,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.38 2002-08-19 16:17:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.39 2003-03-28 14:40:50 cg Exp $'
 ! !