--- a/Parser.st	Mon Sep 24 10:05:36 2001 +0200
+++ b/Parser.st	Mon Sep 24 11:46:32 2001 +0200
@@ -2238,8 +2238,8 @@
         (classToGenerateCode implements:aSelectorString asSymbol) ifFalse:[
             "do not overwrite an already existant (deprecated) method"
             classToGenerateCode
-                compile:((self class methodSpecificationForSelector:aSelectorString) , '\    self halt. self error:''to be implemented'' mayProceed:true' withCRs)
-                classified:'* as yet uncategorized *'.
+                compile:((self class methodSpecificationForSelector:aSelectorString) , '\    self error:''To be implemented'' mayProceed:true' withCRs)
+                classified:'** As yet uncategorized **'.
         ].
         correctIt := false.
     ].
@@ -5954,6 +5954,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.298 2001-09-24 08:03:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.299 2001-09-24 09:46:32 cg Exp $'
 ! !
 Parser initialize!