--- a/Method.st	Fri Oct 04 15:40:47 1996 +0200
+++ b/Method.st	Fri Oct 04 15:56:13 1996 +0200
@@ -977,13 +977,13 @@
                                      compile:sourceString
                                      forClass:cls
                                      inCategory:(self category)
-                                     notifying:self
+                                     notifying:nil
                                      install:false.
             ] ifFalse:[
                 temporaryMethod := compiler new
                                      compile:sourceString 
                                      in:cls 
-                                     notifying:self 
+                                     notifying:nil 
                                      ifFail:nil
             ].
         ] valueNowOrOnUnwindDo:[
@@ -1002,7 +1002,7 @@
     ^ temporaryMethod
 
     "Created: 24.10.1995 / 14:02:30 / cg"
-    "Modified: 4.10.1996 / 14:40:33 / cg"
+    "Modified: 4.10.1996 / 14:55:57 / cg"
 !
 
 readBinaryContentsFrom: stream manager: manager
@@ -1103,28 +1103,6 @@
     "Created: 16.1.1996 / 14:41:45 / cg"
 ! !
 
-!Method methodsFor:'compiler error handling'!
-
-correctableError:msg position:p1 to:p2 from:who
-    ('error:\\' , msg) withCRs errorPrintNL.
-    ^ false
-
-    "Created: 4.10.1996 / 14:40:15 / cg"
-!
-
-error:msg position:p1 to:p2 from:who
-   ('error:\\' , msg) withCRs errorPrintNL
-
-    "Created: 4.10.1996 / 14:39:56 / cg"
-!
-
-warning:msg position:p1 to:p2 from:who
-    ('warning:\\' , msg) withCRs errorPrintNL.
-    ^ false
-
-    "Created: 4.10.1996 / 14:40:21 / cg"
-! !
-
 !Method methodsFor:'copying'!
 
 copy
@@ -2167,6 +2145,6 @@
 !Method  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.97 1996-10-04 13:40:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.98 1996-10-04 13:56:13 cg Exp $'
 ! !
 Method initialize!