--- a/MessageNd.st	Sun Jul 04 19:12:14 1999 +0200
+++ b/MessageNd.st	Sun Jul 04 19:13:36 1999 +0200
@@ -693,6 +693,7 @@
 
     realReceiver := self realReceiver.
     isSuper := realReceiver isSuper.
+    selector := selector asSymbol.
 
     argArray isNil ifTrue:[
         nargs := 0
@@ -775,7 +776,7 @@
     "need 16bit litIndex"
     aStream nextPut:#sendDropL; nextPut:lineNr; nextPut:litIndex; nextPut:0; nextPut:nargs
 
-    "Modified: / 16.7.1998 / 20:26:30 / cg"
+    "Modified: / 4.7.1999 / 19:06:53 / cg"
 !
 
 codeForSideEffectOn:aStream inBlock:b for:aCompiler
@@ -2596,5 +2597,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.95 1999-06-24 14:17:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.96 1999-07-04 17:13:36 cg Exp $'
 ! !

--- a/MessageNode.st	Sun Jul 04 19:12:14 1999 +0200
+++ b/MessageNode.st	Sun Jul 04 19:13:36 1999 +0200
@@ -693,6 +693,7 @@
 
     realReceiver := self realReceiver.
     isSuper := realReceiver isSuper.
+    selector := selector asSymbol.
 
     argArray isNil ifTrue:[
         nargs := 0
@@ -775,7 +776,7 @@
     "need 16bit litIndex"
     aStream nextPut:#sendDropL; nextPut:lineNr; nextPut:litIndex; nextPut:0; nextPut:nargs
 
-    "Modified: / 16.7.1998 / 20:26:30 / cg"
+    "Modified: / 4.7.1999 / 19:06:53 / cg"
 !
 
 codeForSideEffectOn:aStream inBlock:b for:aCompiler
@@ -2596,5 +2597,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.95 1999-06-24 14:17:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.96 1999-07-04 17:13:36 cg Exp $'
 ! !