--- a/UnaryNode.st	Fri Mar 19 19:14:26 2004 +0100
+++ b/UnaryNode.st	Sat Mar 20 17:40:16 2004 +0100
@@ -193,14 +193,19 @@
      into the system (would make the '... is nowhere implemented' warning
      go away."
 
-    ((selector == #'self') or:[
-     (selector == #'super') or:[
-     (selector == #'thisContext') or:[
-     (selector == #'nil') or:[
-     (selector == #'true') or:[
-     (selector == #'false') or:[
-     (Smalltalk includesKey:selector)]]]]]]) ifTrue:[
-        ^ 'funny selector; possible missing ''.'' or keyword'
+    |selectorSymbol|
+
+    selectorSymbol := selector asSymbolIfInterned.
+    selectorSymbol notNil ifTrue:[
+        ((selectorSymbol == #self) or:[
+         (selectorSymbol == #super) or:[
+         (selectorSymbol == #thisContext) or:[
+         (selectorSymbol == #nil) or:[
+         (selectorSymbol == #true) or:[
+         (selectorSymbol == #false) or:[
+         (Smalltalk includesKey:selectorSymbol)]]]]]]) ifTrue:[
+            ^ 'funny selector; possible missing ''.'' or keyword'
+        ].
     ].
 
     "
@@ -340,5 +345,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.42 2004-03-19 13:26:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.43 2004-03-20 16:40:16 stefan Exp $'
 ! !