--- a/SelectionInListView.st	Mon May 19 11:06:42 2003 +0200
+++ b/SelectionInListView.st	Fri May 30 10:49:25 2003 +0200
@@ -3639,8 +3639,11 @@
 
     newSelection := aNumberOrNilOrCollection.
     multipleSelectOk ifTrue:[
-        (newSelection notNil
-        and:[newSelection isNumber not]) ifTrue:[
+        newSelection notNil ifTrue:[
+            newSelection isNumber ifTrue:[
+                newSelection := OrderedCollection with:newSelection
+            ].
+
             newSelection := newSelection select:[:each | each notNil].
             newSelection size == 0 ifTrue:[newSelection := nil].
         ].
@@ -3943,5 +3946,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.218 2003-05-19 08:59:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.219 2003-05-30 08:49:25 cg Exp $'
 ! !