--- a/Parser.st	Mon Feb 25 21:05:05 2002 +0100
+++ b/Parser.st	Tue Feb 26 11:53:28 2002 +0100
@@ -2273,7 +2273,7 @@
                 ^ aSelectorString
             ].
         ].
-        (classToGenerateCode implements:aSelectorString asSymbol) ifFalse:[
+        (classToGenerateCode includesSelector:aSelectorString asSymbol) ifFalse:[
             "do not overwrite an already existant (deprecated) method"
             classToGenerateCode
                 compile:((self class methodSpecificationForSelector:aSelectorString) , '\    self error:''To be implemented'' mayProceed:true' withCRs)
@@ -6325,6 +6325,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.325 2002-02-08 14:45:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.326 2002-02-26 10:53:28 cg Exp $'
 ! !
 Parser initialize!