--- a/ClassDescription.st	Sun Sep 03 16:37:50 2000 +0200
+++ b/ClassDescription.st	Sun Sep 03 16:45:58 2000 +0200
@@ -499,17 +499,17 @@
     "evaluate aBlock for all classes in aCategory;
      no specific order is defined."
 
-    Smalltalk allBehaviorsDo:[:aClass |
-	aClass isMeta ifFalse:[
-	    (aClass category = aCategory) ifTrue:[
-		aBlock value:aClass
-	    ]
-	].
+    Smalltalk allClassesDo:[:aClass |
+        aClass isMeta ifFalse:[
+            (aClass category = aCategory) ifTrue:[
+                aBlock value:aClass
+            ]
+        ].
     ]
 
     "
      Class allClassesInCategory:'Kernel-Classes' 
-			     do:[:class |Transcript showCR:class name]
+                             do:[:class |Transcript showCR:class name]
     "
 
     "Created: 1.4.1997 / 23:45:09 / stefan"
@@ -522,12 +522,12 @@
     |classes|
 
     classes := OrderedCollection new.
-    Smalltalk allBehaviorsDo:[:aClass |
-	aClass isMeta ifFalse:[
-	    (aClass category = aCategory) ifTrue:[
-		classes add:aClass
-	    ]
-	]
+    Smalltalk allClassesDo:[:aClass |
+        aClass isMeta ifFalse:[
+            (aClass category = aCategory) ifTrue:[
+                classes add:aClass
+            ]
+        ]
     ].
     classes topologicalSort:[:a :b | b isSubclassOf:a].
     classes do:aBlock
@@ -3716,6 +3716,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.107 2000-08-22 13:47:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.108 2000-09-03 14:45:01 cg Exp $'
 ! !
 ClassDescription initialize!