--- a/Tools_ClassList.st	Tue Jun 05 22:19:01 2012 +0200
+++ b/Tools_ClassList.st	Tue Jun 05 23:32:07 2012 +0200
@@ -831,9 +831,15 @@
         something == #methodTrap ifTrue:[
             ^ self
         ].
+        something == #coverageInfo ifTrue:[
+            listValid == true ifTrue:[
+                self enqueueDelayedUpdateList
+            ].
+            ^ self.
+        ].
         something == #methodCoverageInfo ifTrue:[
-            mthd := aParameter.
             listValid == true ifTrue:[
+                mthd := aParameter.
                 cls := mthd mclass.
                 cls notNil ifTrue:[
                     classListValue size > 0 ifTrue:[
@@ -928,7 +934,7 @@
 
     super update:something with:aParameter from:changedObject
 
-    "Modified: / 20-07-2011 / 18:48:30 / cg"
+    "Modified: / 04-06-2012 / 20:06:51 / cg"
 ! !
 
 !ClassList methodsFor:'drag & drop'!
@@ -2001,5 +2007,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.57 2012-02-13 13:46:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.58 2012-06-05 21:32:07 cg Exp $'
 ! !