--- a/ProtoObject.st	Fri Oct 10 18:38:05 2003 +0200
+++ b/ProtoObject.st	Fri Oct 10 18:39:13 2003 +0200
@@ -139,21 +139,11 @@
 !ProtoObject methodsFor:'testing'!
 
 isBehavior
-    "return true, if the receiver is some kind of class (i.e. behavior);
-     false is returned here - the method is only redefined in Behavior."
-
     ^ false
+!
 
-"
-*** WARNING
-***
-*** this method has been automatically created,
-*** since all nil-subclasses should respond to some minimum required
-*** protocol.
-***
-*** Inspection and/or debugging of instances may not be possible,
-*** if you remove/change this method. 
-"
+isBlock
+    ^ false
 !
 
 isException
@@ -171,5 +161,5 @@
 !ProtoObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.6 2003-10-10 16:05:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.7 2003-10-10 16:39:13 cg Exp $'
 ! !