--- a/BinaryNode.st	Fri Mar 28 15:55:59 2003 +0100
+++ b/BinaryNode.st	Fri Mar 28 16:37:31 2003 +0100
@@ -74,8 +74,6 @@
 codeOn:aStream inBlock:b for:aCompiler
     |arg1 recVal argVal code|
 
-    selector := selector asSymbol.
-
     receiver isSuper ifFalse:[
         (aCompiler isBuiltInBinarySelector:selector forReceiver:receiver) ifTrue:[
         "/ ( #(== ~~ = ~= + - < <= > >=) includes:selector) ifTrue:[
@@ -183,8 +181,6 @@
 !BinaryNode methodsFor:'evaluation'!
 
 evaluateIn:anEnvironment
-    selector := selector asSymbol.
-
     receiver isSuper ifTrue:[
         ^ super evaluateIn:anEnvironment
     ].
@@ -240,5 +236,5 @@
 !BinaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BinaryNode.st,v 1.30 2003-03-28 14:40:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BinaryNode.st,v 1.31 2003-03-28 15:37:31 cg Exp $'
 ! !

--- a/CascadeNode.st	Fri Mar 28 15:55:59 2003 +0100
+++ b/CascadeNode.st	Fri Mar 28 16:37:31 2003 +0100
@@ -97,7 +97,6 @@
 evaluateForCascadeIn:anEnvironment
     |t argValueArray|
 
-    selector := selector asSymbol.
     receiver isSuper ifTrue:[
         ^ super evaluateForCascadeIn:anEnvironment
     ].
@@ -115,8 +114,6 @@
 evaluateIn:anEnvironment
     |t argValueArray|
 
-    selector := selector asSymbol.
-
     receiver isSuper ifTrue:[
         ^ super evaluateIn:anEnvironment
     ].
@@ -188,5 +185,5 @@
 !CascadeNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.24 2003-03-28 14:41:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.25 2003-03-28 15:37:21 cg Exp $'
 ! !

--- a/MessageNode.st	Fri Mar 28 15:55:59 2003 +0100
+++ b/MessageNode.st	Fri Mar 28 16:37:31 2003 +0100
@@ -302,16 +302,13 @@
 
 receiver:r selector:s args:a lineno:l
     receiver := r.
-    selector := s asSymbolIfInterned ? s.
+    "/ selector := s asSymbolIfInterned ? s.
+    selector := s asSymbol.
     argArray := a.
     lineNr := l.
     self checkInlinability.
 
     "Modified: 2.7.1997 / 17:01:24 / cg"
-
-
-
-
 !
 
 selector
@@ -319,7 +316,8 @@
 !
 
 selector:s
-    selector := s asSymbolIfInterned ? s.
+    "/ selector := s asSymbolIfInterned ? s.
+    selector := s asSymbol.
 !
 
 selectorPosition
@@ -3086,5 +3084,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.127 2003-03-28 14:40:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.128 2003-03-28 15:37:27 cg Exp $'
 ! !

--- a/UnaryNode.st	Fri Mar 28 15:55:59 2003 +0100
+++ b/UnaryNode.st	Fri Mar 28 16:37:31 2003 +0100
@@ -193,8 +193,6 @@
      into the system (would make the '... is nowhere implemented' warning
      go away."
 
-    selector := selector asSymbol.
-
     ((selector == #'self') or:[
      (selector == #'super') or:[
      (selector == #'thisContext') or:[
@@ -220,8 +218,6 @@
 
     |rSel notSelector|
 
-    selector := selector asSymbol.
-
     "
      optimize 
         (a == b) not -> (a ~~ b)
@@ -270,8 +266,6 @@
 evaluateIn:anEnvironment
     "evaluate the expression represented by the receiver"
 
-    selector := selector asSymbol.
-
     receiver isSuper ifTrue:[
         ^ super evaluateIn:anEnvironment
     ].
@@ -343,5 +337,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.39 2003-03-28 14:40:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.40 2003-03-28 15:37:18 cg Exp $'
 ! !