--- a/UnaryNode.st	Mon Aug 19 18:16:44 2002 +0200
+++ b/UnaryNode.st	Mon Aug 19 18:17:09 2002 +0200
@@ -198,9 +198,10 @@
     ((selector == #'self') or:[
      (selector == #'super') or:[
      (selector == #'thisContext') or:[
+     (selector == #'nil') or:[
      (selector == #'true') or:[
      (selector == #'false') or:[
-     (Smalltalk includesKey:selector)]]]]]) ifTrue:[
+     (Smalltalk includesKey:selector)]]]]]]) ifTrue:[
         ^ 'funny selector; possible missing ''.'' or keyword'
     ].
 
@@ -342,5 +343,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.37 2001-10-02 17:30:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.38 2002-08-19 16:17:09 cg Exp $'
 ! !