--- a/BrowserView.st	Sun Sep 03 16:45:32 2000 +0200
+++ b/BrowserView.st	Sun Sep 03 17:43:39 2000 +0200
@@ -11730,26 +11730,24 @@
     |index|
 
     index := (classListView list size).
-    aClass withAllSuperclasses do:[:c |
-	(classListView isInSelection:index) ifFalse:[
-	    aBlock value:c
-	].
-	index := index - 1
-    ]
-
+    aClass withAllSuperclassesDo:[:c |
+        (classListView isInSelection:index) ifFalse:[
+            aBlock value:c
+        ].
+        index := index - 1
+    ]
 !
 
 classesInHierarchy:aClass do:aBlock
     |index|
 
     index := (classListView list size).
-    aClass withAllSuperclasses do:[:c |
-	(classListView isInSelection:index) ifFalse:[
-	    aBlock value:c
-	].
-	index := index - 1
-    ]
-
+    aClass withAllSuperclassesDo:[:c |
+        (classListView isInSelection:index) ifFalse:[
+            aBlock value:c
+        ].
+        index := index - 1
+    ]
 !
 
 clearAcceptAction
@@ -13767,7 +13765,7 @@
         ^ self
     ].
 
-    class withAllSuperclasses do:[:aClass |
+    class withAllSuperclassesDo:[:aClass |
         |ignore clsName|
 
         ignore := fullProtocol 
@@ -13817,6 +13815,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.635 2000-09-03 14:45:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.636 2000-09-03 15:43:39 cg Exp $'
 ! !
 BrowserView initialize!