--- a/ListView.st	Sat May 17 17:09:53 2014 +0200
+++ b/ListView.st	Sat May 17 17:23:36 2014 +0200
@@ -2885,6 +2885,11 @@
             "/ so I changed it to:
             (newText notNil and:[newText isString]) ifTrue:[
                 newText := newText asStringCollection.
+            ] ifFalse:[
+                newText == model ifTrue:[
+                    "/ I must operate on a copy
+                    newText := model asNewOrderedCollection
+                ].
             ].
 
             compareModelOnUpdate ifTrue:[
@@ -5264,10 +5269,10 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.392 2014-05-17 15:09:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.393 2014-05-17 15:23:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.392 2014-05-17 15:09:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.393 2014-05-17 15:23:36 cg Exp $'
 ! !