--- a/Behavior.st	Thu Mar 07 19:34:33 1996 +0100
+++ b/Behavior.st	Thu Mar 07 19:40:50 1996 +0100
@@ -11,11 +11,11 @@
 "
 
 Object subclass:#Behavior
-	 instanceVariableNames:'superclass flags selectorArray methodArray otherSuperclasses
+	instanceVariableNames:'superclass flags selectorArray methodArray otherSuperclasses
 		instSize'
-	 classVariableNames:'SubclassInfo'
-	 poolDictionaries:''
-	 category:'Kernel-Classes'
+	classVariableNames:'SubclassInfo'
+	poolDictionaries:''
+	category:'Kernel-Classes'
 !
 
 !Behavior class methodsFor:'documentation'!
@@ -2372,8 +2372,8 @@
     |index|
 
     selectorArray isNil ifTrue:[
-	('oops: nil selectorArray in ' , self name) errorPrintNL.
-	^ nil
+        ('BEHAVIOR: OOPS - nil selectorArray in ' , self name) errorPrintNL.
+        ^ nil
     ].
 
     index := selectorArray identityIndexOf:aSelector startingAt:1.
@@ -2384,6 +2384,8 @@
      Object compiledMethodAt:#==
      (Object compiledMethodAt:#==) category
     "
+
+    "Modified: 7.3.1996 / 19:14:23 / cg"
 !
 
 containsMethod:aMethod
@@ -3028,5 +3030,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.64 1996-02-21 12:35:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.65 1996-03-07 18:40:50 cg Exp $'
 ! !