--- a/Parser.st	Tue Jun 26 14:02:06 2001 +0200
+++ b/Parser.st	Wed Jun 27 10:59:29 2001 +0200
@@ -2916,6 +2916,10 @@
         ] ifFalse:[
             err := aSelectorString allBold , err
         ].
+        "/ if its a recursive invocation of just that selector, do not complain
+        (selector = aSelectorString and:[ receiver isSelf]) ifTrue:[
+            ^ aSelectorString
+        ].
         newSelector := self correctSelector:aSelectorString 
                             message:err position:pos1 to:pos2 in:selClass for:receiver.
 "/        self warning:('#' , aSelectorString , '\\' , err) withCRs position:pos1 to:pos2.
@@ -5869,6 +5873,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.283 2001-06-26 12:02:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.284 2001-06-27 08:59:29 cg Exp $'
 ! !
 Parser initialize!