--- a/Tools__ChangeList.st	Wed Dec 28 15:49:53 2011 +0100
+++ b/Tools__ChangeList.st	Wed Dec 28 17:17:51 2011 +0100
@@ -758,9 +758,12 @@
                     ].
     newList := self filterList: newList.
     newList := newList collect:[:chg | self listEntryFor:chg ].
-    self listHolder value: newList.
+    self listHolder value ~= newList ifTrue:[
+        self listHolder value: newList.
+    ]
 
     "Modified: / 29-11-2011 / 15:38:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-12-2011 / 15:46:15 / cg"
 ! !
 
 !ChangeList methodsFor:'queries'!
@@ -999,11 +1002,11 @@
 !ChangeList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.11 2011-12-27 13:21:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.12 2011-12-28 16:17:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.11 2011-12-27 13:21:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.12 2011-12-28 16:17:51 cg Exp $'
 !
 
 version_SVN