--- a/UnaryNode.st	Sat Oct 24 16:59:06 2009 +0200
+++ b/UnaryNode.st	Thu Oct 29 11:58:53 2009 +0100
@@ -221,8 +221,15 @@
          (selectorSymbol == #thisContext) or:[
          (selectorSymbol == #nil) or:[
          (selectorSymbol == #true) or:[
-         (selectorSymbol == #false) or:[
-         (Smalltalk includesKey:selectorSymbol)]]]]]]) ifTrue:[
+         (selectorSymbol == #false)]]]]]) 
+        ifTrue:[
+            (aParser alreadyWarnedUnimplementedSelectors includes:selectorSymbol) ifFalse:[
+                aParser alreadyWarnedUnimplementedSelectors add:selectorSymbol.
+                ^ 'funny selector: ',selectorSymbol allBold,'; possible missing ''.'' or keyword-colon.'
+            ].
+        ].
+
+        (Smalltalk includesKey:selectorSymbol) ifTrue:[
             (aParser alreadyWarnedUnimplementedSelectors includes:selectorSymbol) ifFalse:[
                 aParser alreadyWarnedUnimplementedSelectors add:selectorSymbol.
                 ^ 'funny selector: ',selectorSymbol allBold,' (known as global); possible missing ''.'' or keyword-colon.'
@@ -332,5 +339,9 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.52 2008-10-14 08:00:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.53 2009-10-29 10:58:53 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.53 2009-10-29 10:58:53 cg Exp $'
 ! !