--- a/Method.st	Fri Jan 10 18:53:01 1997 +0100
+++ b/Method.st	Fri Jan 10 18:56:51 1997 +0100
@@ -950,12 +950,12 @@
 
     cls := self containingClass.
     cls isNil ifTrue:[
-        'METHOD: cannot generate bytecode (no class for compilation)' errorPrintNL.
+        'Method [warning]: cannot generate bytecode (no class for compilation)' errorPrintCR.
         ^ nil
     ].
     sourceString := self source.
     sourceString isNil ifTrue:[
-        'METHOD: cannot generate bytecode (no source for compilation)' errorPrintNL.
+        'Method [warning]: cannot generate bytecode (no source for compilation)' errorPrintCR.
         ^ nil
     ].
 
@@ -998,7 +998,7 @@
         ]
     ].
     (temporaryMethod isNil or:[temporaryMethod == #Error]) ifTrue:[
-        'METHOD: cannot generate bytecode (contains primitive code or error)' errorPrintNL.
+        'Method [warning]: cannot generate bytecode (contains primitive code or error)' errorPrintCR.
         ^ nil.
     ].
     "
@@ -1008,7 +1008,7 @@
     ^ temporaryMethod
 
     "Created: 24.10.1995 / 14:02:30 / cg"
-    "Modified: 4.10.1996 / 14:55:57 / cg"
+    "Modified: 10.1.1997 / 17:55:33 / cg"
 !
 
 readBinaryContentsFrom: stream manager: manager
@@ -2712,6 +2712,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.118 1997-01-07 16:39:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.119 1997-01-10 17:56:15 cg Exp $'
 ! !
 Method initialize!