--- a/BContext.st	Fri Jan 10 17:25:03 1997 +0100
+++ b/BContext.st	Fri Jan 10 17:30:02 1997 +0100
@@ -180,7 +180,7 @@
 
     mHome := self methodHome.
     mHome isNil ifTrue:[
-        'BCONTEXT: no methodHome' errorPrintNL.
+        'BlockContext [warning]: no methodHome' errorPrintCR.
         ^ '[] in ???'
     ].
 
@@ -193,7 +193,7 @@
     ] ifFalse:[
         m := mHome method.
         m isNil ifTrue:[
-            'BCONTEXT: no method' errorPrintNL.
+            'BlockContext [warning]: no method' errorPrintCR.
             ^ '[] in ???'
         ].
         who := m who.
@@ -206,22 +206,22 @@
     ].
 
     cls isNil ifTrue:[
-        'BCONTEXT: no home class' errorPrintNL.
+        'BlockContext [warning]: no home class' errorPrintCR.
         className := '???'
     ] ifFalse:[
         className := cls name.
         className isNil ifTrue:[
-            'BCONTEXT: nameless class' errorPrintNL.
+            'BlockContext [warning]: nameless class' errorPrintCR.
             className := '???'
         ]
     ].
     ^ '[] in ' , className , '-' , sel
 
-    "Modified: 1.11.1996 / 16:19:25 / cg"
+    "Modified: 10.1.1997 / 17:28:36 / cg"
 ! !
 
 !BlockContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.24 1996-11-21 18:33:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/BContext.st,v 1.25 1997-01-10 16:29:35 cg Exp $'
 ! !

--- a/Behavior.st	Fri Jan 10 17:25:03 1997 +0100
+++ b/Behavior.st	Fri Jan 10 17:30:02 1997 +0100
@@ -2581,8 +2581,8 @@
 
     dict := self methodDictionary.
     dict isNil ifTrue:[
-	('BEHAVIOR: OOPS - nil methodDictionary in ' , self name printString) errorPrintNL.
-	^ nil
+        ('Behavior [warning]: nil methodDictionary in ' , self name printString) errorPrintCR.
+        ^ nil
     ].
 
     ^ dict at:aSelector ifAbsent:[nil]
@@ -2592,8 +2592,8 @@
      (Object compiledMethodAt:#==) category
     "
 
-    "Modified: 7.3.1996 / 19:14:23 / cg"
     "Modified: 7.6.1996 / 14:43:32 / stefan"
+    "Modified: 10.1.1997 / 17:27:21 / cg"
 !
 
 containsMethod:aMethod
@@ -3377,5 +3377,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.95 1997-01-08 23:13:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.96 1997-01-10 16:30:02 cg Exp $'
 ! !

--- a/BlockContext.st	Fri Jan 10 17:25:03 1997 +0100
+++ b/BlockContext.st	Fri Jan 10 17:30:02 1997 +0100
@@ -180,7 +180,7 @@
 
     mHome := self methodHome.
     mHome isNil ifTrue:[
-        'BCONTEXT: no methodHome' errorPrintNL.
+        'BlockContext [warning]: no methodHome' errorPrintCR.
         ^ '[] in ???'
     ].
 
@@ -193,7 +193,7 @@
     ] ifFalse:[
         m := mHome method.
         m isNil ifTrue:[
-            'BCONTEXT: no method' errorPrintNL.
+            'BlockContext [warning]: no method' errorPrintCR.
             ^ '[] in ???'
         ].
         who := m who.
@@ -206,22 +206,22 @@
     ].
 
     cls isNil ifTrue:[
-        'BCONTEXT: no home class' errorPrintNL.
+        'BlockContext [warning]: no home class' errorPrintCR.
         className := '???'
     ] ifFalse:[
         className := cls name.
         className isNil ifTrue:[
-            'BCONTEXT: nameless class' errorPrintNL.
+            'BlockContext [warning]: nameless class' errorPrintCR.
             className := '???'
         ]
     ].
     ^ '[] in ' , className , '-' , sel
 
-    "Modified: 1.11.1996 / 16:19:25 / cg"
+    "Modified: 10.1.1997 / 17:28:36 / cg"
 ! !
 
 !BlockContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.24 1996-11-21 18:33:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.25 1997-01-10 16:29:35 cg Exp $'
 ! !