--- a/BrowserView.st	Wed Jul 30 21:20:36 1997 +0200
+++ b/BrowserView.st	Thu Jul 31 13:57:16 1997 +0200
@@ -7896,6 +7896,7 @@
                              ].
     ].
 
+    methodList := methodList asOrderedCollection.
     selectorList := methodList collect:[:assoc | assoc key].
     newList := methodList 
                     collect:[:assoc |
@@ -10437,6 +10438,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.323 1997-07-30 16:05:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.324 1997-07-31 11:57:16 ca Exp $'
 ! !
 BrowserView initialize!