--- a/UnaryNd.st	Thu Jun 24 00:16:33 1999 +0200
+++ b/UnaryNd.st	Thu Jun 24 00:17:55 1999 +0200
@@ -238,8 +238,10 @@
 evaluate
     "evaluate the expression represented by the receiver"
 
+    selector := selector asSymbol.
+
     receiver isSuper ifTrue:[
-	^ super evaluate
+        ^ super evaluate
     ].
     ^ (receiver evaluate) perform:selector
 ! !
@@ -282,5 +284,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/UnaryNd.st,v 1.26 1999-02-03 11:57:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/UnaryNd.st,v 1.27 1999-06-23 22:16:51 cg Exp $'
 ! !