--- a/Parser.st	Tue Aug 08 23:38:47 2006 +0200
+++ b/Parser.st	Wed Aug 09 13:54:18 2006 +0200
@@ -30,7 +30,7 @@
 		alreadyWarnedUnimplementedSelectors returnedValues currentPackage
 		doItTemporaries inFunctionCallArgument
 		didWarnAboutSTXNameSpaceUse didWarnAboutSTXHereExtensionUsed
-		parenthesisLevel'
+		parenthesisLevel didWarnAboutBadSupersend'
 	classVariableNames:'PrevClass PrevInstVarNames PrevClassVarNames
 		PrevClassInstVarNames LazyCompilation FoldConstants
 		LineNumberInfo SuppressDoItCompilation ParseErrorSignal
@@ -7825,7 +7825,10 @@
                 rcvr := aNode receiver.
                 (rcvr isSuper and:[rcvr isHere not]) ifTrue:[
                     aNode selector ~= selector ifTrue:[
-                        ^ 'possible bad super message ? (selector should be same as in current method)'
+                        didWarnAboutBadSupersend ifFalse:[
+                            didWarnAboutBadSupersend := true.
+                            ^ 'possible bad super message ? (selector should be same as in current method)'.
+                        ]
                     ].
                 ].
             ].
@@ -8160,6 +8163,7 @@
 
     didWarnAboutSTXNameSpaceUse := false.
     didWarnAboutSTXHereExtensionUsed := false.
+    didWarnAboutBadSupersend := false.
 
     "Modified: 7.9.1997 / 02:04:34 / cg"
 !
@@ -8792,7 +8796,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.511 2006-08-02 15:28:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.512 2006-08-09 11:54:18 cg Exp $'
 ! !
 
 Parser initialize!