--- a/Tools__MethodCategoryList.st	Sat Jan 23 11:33:48 2016 +0100
+++ b/Tools__MethodCategoryList.st	Sat Jan 23 13:41:21 2016 +0100
@@ -819,10 +819,11 @@
         ].
     ].
 
-    something == #coverageInfo ifTrue:[
-        listValid == true ifTrue:[
-            self enqueueDelayedUpdateList
-        ].
+    something == #lastTestRunResult ifTrue:[
+        cls := aParameter at:1.
+        (classes notNil and:[classes includesIdentical:cls]) ifTrue:[
+            self invalidateList.
+        ].    
         ^ self.
     ].