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