--- a/Tools_MethodCategoryList.st	Wed Jul 20 20:19:03 2011 +0200
+++ b/Tools_MethodCategoryList.st	Wed Jul 20 20:19:06 2011 +0200
@@ -752,14 +752,20 @@
 
         something == #methodCoverageInfo ifTrue:[
             self showCoverageInformation value ifFalse:[^ self].
+            listValid ifFalse:[^ self ].
+
             mthd := aParameter.
             (classes notNil and:[classes includesIdentical:mthd mclass]) ifFalse:[^ self].
+
+            self enqueueDelayedUpdateList.
+            listValid := false.
+            ^ self
         ].
     ].
 
     super update:something with:aParameter from:changedObject.
 
-    "Modified: / 20-07-2011 / 18:07:48 / cg"
+    "Modified: / 20-07-2011 / 18:54:57 / cg"
 ! !
 
 !MethodCategoryList methodsFor:'drag & drop'!
@@ -1887,11 +1893,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.66 2011-07-20 16:44:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.67 2011-07-20 18:19:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.66 2011-07-20 16:44:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.67 2011-07-20 18:19:06 cg Exp $'
 ! !
 
 MethodCategoryList initialize!