--- a/Tools_ClassList.st	Wed Oct 31 14:33:51 2012 +0100
+++ b/Tools_ClassList.st	Wed Oct 31 14:34:33 2012 +0100
@@ -564,28 +564,20 @@
             changedObject removeDependent:self.
         ] ifFalse:[
             "/ react on changes of the changeSet to recolorize items
-            something == #addChange: ifTrue:[
-                chgClass := aParameter changeClass.
-                chgClass notNil ifTrue:[
-                    ((classes includes:chgClass theNonMetaclass) 
-                    or:[classes includes:chgClass theMetaclass]) ifTrue:[
-                        "/ remove all other addChange notifications ...
-                        wg sensor 
-                            flushEventsFor:self 
-                            where:[:ev | ev isMessageSendEvent 
-                                         and:[ev selector == #delayedUpdate:with:from:
-                                         and:[(ev arguments at:3) == ChangeSet]]].
-                        self reconstructNameList.
-                    ]
+            ((something ~~ #addChange:)
+                or:[ 
+                    chgClass := aParameter changeClass.
+                    chgClass notNil 
+                    and:[ (classes includes:chgClass theNonMetaclass) 
+                          or:[classes includes:chgClass theMetaclass]]
                 ]
-            ] ifFalse:[
-                "/ remove all other ChangeSet notifications ...
+            ) ifTrue:[
                 wg sensor 
                     flushEventsFor:self 
                     where:[:ev | ev isMessageSendEvent 
                                  and:[ev selector == #delayedUpdate:with:from:
                                  and:[(ev arguments at:3) == ChangeSet]]].
-                self reconstructNameList.
+                self enqueueDelayedAction:[self reconstructNameList].
             ].
         ].
         ^ self 
@@ -2013,9 +2005,9 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.66 2012-10-30 11:23:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.67 2012-10-31 13:34:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.66 2012-10-30 11:23:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.67 2012-10-31 13:34:33 cg Exp $'
 ! !