--- a/SelectionInListView.st	Wed Aug 30 15:11:35 2000 +0200
+++ b/SelectionInListView.st	Wed Aug 30 18:04:13 2000 +0200
@@ -1764,9 +1764,12 @@
         start := aParameter first.
         stop  := aParameter last.
 
-        start to:stop do:[:anIndex|
-            self at:anIndex put:(listValue at:anIndex)
-        ].
+        "/ old code
+"/        start to:stop do:[:anIndex|
+"/            self at:anIndex put:(listValue at:anIndex)
+"/        ].
+        "/ new code
+        self replaceFrom:start to:stop with:listValue startingAt:start.
         ^ self
     ].
 
@@ -3795,5 +3798,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.180 2000-08-30 13:11:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.181 2000-08-30 16:04:13 cg Exp $'
 ! !