--- a/OrderedCollectionInspectorView.st	Wed Jun 13 09:54:14 2012 +0200
+++ b/OrderedCollectionInspectorView.st	Wed Jun 13 10:15:03 2012 +0200
@@ -89,7 +89,7 @@
                       ('-')
                       ('Show More'                   showMore               )
                    ).
-        (object size > (nShown * 2)) ifTrue:[
+        (self numIndexedFields > (nShown * 2)) ifTrue:[
             items := items , #(
                         ('Show All'                     #showAll                )
                           )
@@ -119,7 +119,7 @@
 
     ^ m
 
-    "Modified: / 13-06-2012 / 09:51:52 / cg"
+    "Modified: / 13-06-2012 / 10:13:49 / cg"
 ! !
 
 !OrderedCollectionInspectorView methodsFor:'private'!
@@ -147,13 +147,21 @@
 
     |n|
 
-    n := inspectedObject size.
+    n := self numIndexedFields.
     (n > nShown) ifTrue:[
         n := nShown.
         hasMore := true.
     ].
 
     ^ (1 to:n)
+
+    "Modified: / 13-06-2012 / 10:14:06 / cg"
+!
+
+numIndexedFields
+    ^ inspectedObject size
+
+    "Created: / 13-06-2012 / 10:13:16 / cg"
 ! !
 
 !OrderedCollectionInspectorView methodsFor:'user interaction'!
@@ -184,9 +192,9 @@
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.46 2012-06-13 07:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.47 2012-06-13 08:15:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.46 2012-06-13 07:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.47 2012-06-13 08:15:03 cg Exp $'
 ! !