--- a/BrowserView.st	Tue Mar 18 18:23:26 1997 +0100
+++ b/BrowserView.st	Wed Mar 19 12:52:05 1997 +0100
@@ -3562,12 +3562,12 @@
 
     |classes|
 
-    classes := self allClassesInCategory:aCategory.
+    classes := (self allClassesInCategory:aCategory) asOrderedCollection.
     classes topologicalSort:[:a :b | b isSubclassOf:a].
     classes do:aBlock
 
     "Created: 23.12.1996 / 10:27:52 / cg"
-    "Modified: 23.12.1996 / 10:30:07 / cg"
+    "Modified: 19.3.1997 / 12:48:28 / cg"
 !
 
 allClassesInSelectedNamespacesDo:aBlock
@@ -9818,6 +9818,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.280 1997-03-07 20:06:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.281 1997-03-19 11:52:05 cg Exp $'
 ! !
 BrowserView initialize!