--- a/Behavior.st	Sat Aug 05 16:05:36 1995 +0200
+++ b/Behavior.st	Tue Aug 08 02:49:43 1995 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.44 1995-07-28 02:35:49 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.45 1995-08-08 00:45:54 claus Exp $
 '!
 
 !Behavior class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.44 1995-07-28 02:35:49 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.45 1995-08-08 00:45:54 claus Exp $
 "
 !
 
@@ -1982,7 +1982,14 @@
     theClass := superclass.
     [theClass notNil] whileTrue:[
 	(theClass == aClass) ifTrue:[^ true].
-	theClass := theClass superclass
+%{
+	if (__isBehaviorLike(theClass)) {
+	    theClass = __ClassInstPtr(theClass)->c_superclass;
+	} else {
+	    theClass = nil;
+	}
+%}.
+"/        theClass := theClass superclass.
     ].
     ^ false