--- a/Parser.st	Thu Jul 08 13:57:31 2004 +0200
+++ b/Parser.st	Wed Jul 14 22:33:14 2004 +0200
@@ -7051,8 +7051,10 @@
         aNode isMessage ifTrue:[
             (contextToEvaluateIn isNil and:[selfValue isNil]) ifTrue:[    "/ do not check this for doits
                 aNode receiver isSuper ifTrue:[
-                    aNode selector ~= selector ifTrue:[
-                        ^ 'possible bad super message (selector should be same as in current method) ?'
+                    aNode receiver isHere ifFalse:[
+                        aNode selector ~= selector ifTrue:[
+                            ^ 'possible bad super message (selector should be same as in current method) ?'
+                        ]
                     ].
                 ].
             ].
@@ -7619,7 +7621,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.433 2004-07-08 11:57:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.434 2004-07-14 20:33:14 cg Exp $'
 ! !
 
 Parser initialize!