.
--- a/Behavior.st Tue May 02 01:03:57 1995 +0200
+++ b/Behavior.st Tue May 02 20:15:27 1995 +0200
@@ -23,7 +23,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.34 1995-05-01 21:28:04 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.35 1995-05-02 18:15:27 claus Exp $
'!
!Behavior class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.34 1995-05-01 21:28:04 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.35 1995-05-02 18:15:27 claus Exp $
"
!
@@ -1694,7 +1694,7 @@
|coll|
coll := OrderedCollection new:100.
- self allDerivedInstancesDo:[:anObject |
+ self allSubInstancesDo:[:anObject |
(anObject isKindOf:self) ifTrue:[
coll add:anObject
]