--- a/MessageNode.st	Thu Jun 24 00:48:44 1999 +0200
+++ b/MessageNode.st	Thu Jun 24 16:17:45 1999 +0200
@@ -1028,6 +1028,7 @@
 
     realReceiver := self realReceiver.
     isSuper := realReceiver isSuper.
+    selector := selector asSymbol.
 
     argArray isNil ifTrue:[
         nargs := 0
@@ -2595,5 +2596,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.94 1999-06-23 22:17:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.95 1999-06-24 14:17:36 cg Exp $'
 ! !