--- a/DictionaryInspectorView.st	Tue May 10 08:13:03 2011 +0200
+++ b/DictionaryInspectorView.st	Tue May 10 08:15:04 2011 +0200
@@ -414,9 +414,11 @@
     "return a list of indexes to show in the selectionList.
      Set hasMore to true, if a '...' entry should be added."
 
-    |sortBlockForKeys|
+    |sortBlockForKeys allShown|
 
-    self allNumericKeys ifTrue:[
+    allShown := inspectedObject size <= nShown.
+
+    (allShown and:[self allNumericKeys]) ifTrue:[
         sortBlockForKeys := [:a :b | a < b].
     ] ifFalse:[
         sortBlockForKeys := [:a :b | a displayString < b displayString].
@@ -429,8 +431,7 @@
 
     "/ do not use 'inspectedObject keys',
     "/ since Sets cannot hold nils (which are now valid keys)
-    keys := OrderedCollection new.
-    inspectedObject size > nShown ifTrue:[
+    allShown ifFalse:[
         keys := (SortedCollection new:nShown) sortBlock:sortBlockForKeys.
         inspectedObject keysDo:[:k | 
             keys add:k.
@@ -441,11 +442,12 @@
         ].
     ].
 
+    keys := OrderedCollection new.
     inspectedObject keysDo:[:k | keys add:k].
     keys := keys asSortedCollection:sortBlockForKeys.
     ^ keys
 
-    "Modified: / 10-05-2011 / 08:06:22 / cg"
+    "Modified: / 10-05-2011 / 08:14:59 / cg"
 !
 
 indexListForNameSpace
@@ -646,9 +648,9 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.73 2011-05-10 06:13:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.74 2011-05-10 06:15:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.73 2011-05-10 06:13:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.74 2011-05-10 06:15:04 cg Exp $'
 ! !