--- a/Parser.st	Thu Nov 14 12:10:30 2002 +0100
+++ b/Parser.st	Fri Nov 15 16:21:35 2002 +0100
@@ -2484,7 +2484,9 @@
             receiverNode isVariable ifTrue:[
                 receiverNode isGlobal ifTrue:[
                     classToGenerateCode := receiverNode evaluate.
-                    classToGenerateCode isBehavior ifFalse:[
+                    classToGenerateCode isBehavior ifTrue:[
+                        classToGenerateCode :=  classToGenerateCode theMetaclass.
+                    ] ifFalse:[
                         classToGenerateCode := nil
                     ].
                 ].
@@ -2504,7 +2506,7 @@
         (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)
+                compile:((self class methodSpecificationForSelector:aSelectorString) , '\    self shouldImplement' withCRs)
                 classified:(Compiler defaultMethodCategory).
         ].
         correctIt := false.
@@ -2535,7 +2537,7 @@
     correctedSource := requestor currentSourceCode.
     source := (ReadStream on:correctedSource)
                   position:(source position + 1 + (newSelector size - aSelectorString size)).
-
+Parser murks.
     ^ newSelector
 
     "Modified: / 22.1.1998 / 16:36:04 / stefan"
@@ -6975,7 +6977,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.355 2002-11-14 11:10:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.356 2002-11-15 15:21:35 stefan Exp $'
 ! !
 
 Parser initialize!