--- a/UnaryNode.st	Thu Jun 24 00:48:44 1999 +0200
+++ b/UnaryNode.st	Thu Jun 24 16:17:45 1999 +0200
@@ -190,6 +190,8 @@
 
     |rSel notSelector|
 
+    selector := selector asSymbol.
+
     "
      optimize 
         (a == b) not -> (a ~~ b)
@@ -284,5 +286,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.27 1999-06-23 22:16:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.28 1999-06-24 14:17:45 cg Exp $'
 ! !