--- a/Parser.st	Mon Aug 02 20:42:14 2004 +0200
+++ b/Parser.st	Wed Aug 04 18:00:07 2004 +0200
@@ -2282,7 +2282,10 @@
         ].
     ] ifFalse:[
         (mthd sends:#shouldNotImplement) ifTrue:[
-            err := 'is not (should not be) implemented'
+            allowed := (cls == classToCompileFor).      "methods in abstract classes may send messages to abstract methods in the same class"
+            allowed ifFalse:[
+                err := 'is not (should not be) implemented'
+            ]
         ] ifFalse:[
             (mthd sends:#subclassResponsibility) ifTrue:[
                 allowed := (cls == classToCompileFor).      "methods in abstract classes may send messages to abstract methods in the same class"
@@ -7666,7 +7669,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.437 2004-07-27 18:30:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.438 2004-08-04 16:00:07 penk Exp $'
 ! !
 
 Parser initialize!