--- a/SelectionInListView.st	Thu Jan 11 12:17:38 2001 +0100
+++ b/SelectionInListView.st	Mon Jan 29 11:22:49 2001 +0100
@@ -3972,8 +3972,10 @@
 
     self selectWithoutScroll:aNumberOrNilOrCollection.
 
-    ((multipleSelectOk and:[aNumberOrNilOrCollection size > 0])
-    or:[multipleSelectOk not and:[aNumberOrNilOrCollection notNil]]) ifTrue:[
+    ((multipleSelectOk 
+        and:[aNumberOrNilOrCollection isNumber or:[aNumberOrNilOrCollection size > 0]])
+    or:[multipleSelectOk not 
+        and:[aNumberOrNilOrCollection notNil]]) ifTrue:[
         self makeSelectionVisible
     ]
 
@@ -4010,5 +4012,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.190 2000-12-22 14:20:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.191 2001-01-29 10:22:49 cg Exp $'
 ! !