--- a/OrderedCollectionInspectorView.st	Wed Nov 23 00:12:17 1994 +0100
+++ b/OrderedCollectionInspectorView.st	Mon Nov 28 22:11:47 1994 +0100
@@ -68,29 +68,26 @@
     ]
 ! !
 
-!OrderedCollectionInspectorView methodsFor:'accessing'!
+!OrderedCollectionInspectorView methodsFor:'private'!
 
 listOfNames
-    "return a list of names to show in the selectionList"
+    "return a list of names for the selectionlist. Leave hasMore as
+     true, if a '...' entry should be added."
 
-    |aList n cut|
+    |aList n|
 
     aList := Text new.
     aList add:'self'.
     n := inspectedObject size.
     (n > nShown) ifTrue:[
 	n := nShown.
-	cut := true.
+	hasMore := true.
 	listView setMiddleButtonMenu:menu2.
     ] ifFalse:[
-	cut := false.
 	listView setMiddleButtonMenu:menu1.
     ].
     1 to:n do:[:index |
 	aList add:(index printString)
     ].
-    cut ifTrue:[
-	aList add:' ... '
-    ].
     ^ aList
 ! !