--- a/UnaryNode.st	Fri Mar 19 14:20:32 2004 +0100
+++ b/UnaryNode.st	Fri Mar 19 14:26:58 2004 +0100
@@ -268,6 +268,7 @@
 evaluateIn:anEnvironment
     "evaluate the expression represented by the receiver"
 
+    selector := selector asSymbol.
     receiver isSuper ifTrue:[
         ^ super evaluateIn:anEnvironment
     ].
@@ -339,5 +340,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.41 2003-10-08 15:26:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.42 2004-03-19 13:26:01 stefan Exp $'
 ! !