--- a/InspectorView.st	Sun Jun 09 11:07:28 2013 +0200
+++ b/InspectorView.st	Sun Jun 09 16:16:54 2013 +0200
@@ -1405,7 +1405,7 @@
 
     |localSelectors labels localProtocolMenu|
 
-    localSelectors := object class methodDictionary keys asArray sort.
+    localSelectors := object class methodDictionary keysSorted.
     "/ kludge: '-' and '=' are special in a menu
     labels := localSelectors collect:[:sel | (#('-' '=') includes:sel) ifTrue:[' ',sel] ifFalse:[sel]].
     localProtocolMenu := PopUpMenu
@@ -1560,7 +1560,7 @@
         ].
     ].
 
-    protocolsSorted := protocols keys asArray sort.
+    protocolsSorted := protocols keysSorted.
     protocolMenu := PopUpMenu
                         labels:#('alphabetical' '=') , protocolsSorted
                         selectors:#(nil nil) , protocolsSorted.
@@ -1570,7 +1570,7 @@
         put:[
             |firstChars alphaMenu|
 
-            firstChars := selectorsByFirstCharacter keys asOrderedCollection sort.
+            firstChars := selectorsByFirstCharacter keysSorted.
             alphaMenu := PopUpMenu
                                labels:firstChars
                                selector:#mmm 
@@ -3506,10 +3506,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.312 2013-06-05 13:23:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.313 2013-06-09 14:16:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.312 2013-06-05 13:23:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.313 2013-06-09 14:16:54 cg Exp $'
 ! !