--- a/Metaclass.st	Fri Jan 10 18:53:01 1997 +0100
+++ b/Metaclass.st	Fri Jan 10 18:56:51 1997 +0100
@@ -95,15 +95,15 @@
     ].
 
     (nm := myClass name) isNil ifTrue:[
-        'METACLASS: oops - no name in my class' errorPrintNL.
+        'Metaclass [warning]: no name in my class' errorPrintCR.
         name notNil ifTrue:[
             ^ name
         ].
     ].
     ^ nm , ' class'
 
-    "Modified: 7.3.1996 / 19:18:53 / cg"
     "Modified: 19.6.1996 / 14:30:58 / stefan"
+    "Modified: 10.1.1997 / 17:55:08 / cg"
 ! !
 
 !Metaclass methodsFor:'class instance variables'!
@@ -1763,5 +1763,5 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.100 1997-01-09 01:27:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.101 1997-01-10 17:56:51 cg Exp $'
 ! !

--- 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!

--- a/Object.st	Fri Jan 10 18:53:01 1997 +0100
+++ b/Object.st	Fri Jan 10 18:56:51 1997 +0100
@@ -2999,7 +2999,7 @@
 
     ignorable ifFalse:[
         here isRecursive ifTrue:[
-            'fatal: signal ' errorPrint. signalNumber errorPrintNL.
+            'Object [hard error]: signal ' errorPrint. signalNumber errorPrintCR.
             MiniDebugger enterWithMessage:'recursive signal'.
             ^ self
         ].
@@ -3061,7 +3061,7 @@
     box actions:actions.
     box showAtPointer
 
-    "Modified: 3.1.1997 / 14:45:26 / cg"
+    "Modified: 10.1.1997 / 17:56:41 / cg"
 !
 
 spyInterrupt
@@ -5405,6 +5405,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.156 1997-01-09 18:08:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.157 1997-01-10 17:55:26 cg Exp $'
 ! !
 Object initialize!