--- a/ListView.st	Sat May 17 17:23:36 2014 +0200
+++ b/ListView.st	Sun May 18 11:08:07 2014 +0200
@@ -2872,12 +2872,14 @@
     "ask my model (if any) for the text via the listMsg.
      If there is no listMessage, try aspect for backward compatibility."
 
-    |newText msg|
+    |newText msg doCompareIfUnchanged|
 
     model notNil ifTrue:[
         msg := listMsg ? aspectMsg.
 
         msg notNil ifTrue:[
+            doCompareIfUnchanged := compareModelOnUpdate.
+
             newText := model perform:msg.
             "/ cg: this makes many optimizations (virtualArray) useless;
             "/ I do not think that this is a good idea:
@@ -2888,11 +2890,12 @@
             ] ifFalse:[
                 newText == model ifTrue:[
                     "/ I must operate on a copy
-                    newText := model asNewOrderedCollection
+                    newText := model asNewOrderedCollection.
+                    "/ doCompareIfUnchanged := false.
                 ].
             ].
 
-            compareModelOnUpdate ifTrue:[
+            doCompareIfUnchanged ifTrue:[
                 "/ see if there is a change at all.
                 "/ use to compare using =, but that's not enough in case of emphasis change.
                 newText size == list size ifTrue:[
@@ -5269,10 +5272,10 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.393 2014-05-17 15:23:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.394 2014-05-18 09:08:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.393 2014-05-17 15:23:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.394 2014-05-18 09:08:07 cg Exp $'
 ! !