--- a/Tools__ClassList.st	Wed Feb 11 17:14:36 2015 +0100
+++ b/Tools__ClassList.st	Wed Feb 11 18:37:10 2015 +0100
@@ -838,11 +838,14 @@
         something == #addChange:    ifTrue:[ listValid ifTrue:[self invalidateList]. ^ self ].
         something == #methodCoverageInfo ifTrue:[ self invalidateList. ^ self ].
     ].
-"/    self window sensor isNil ifTrue:[
-"/        "/ not visible ...
-"/        self invalidateList.
-"/        ^ self
-"/    ].
+
+    something == #lastTestRunResult ifTrue:[
+        (self window sensor isNil or:[self window sensor class == SynchronousWindowSensor]) ifTrue:[
+            "/ not visible ...
+            self invalidateList.
+            ^ self
+        ].
+    ].
 
     classListValue := classList value.
 
@@ -2142,10 +2145,10 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.88 2015-01-31 01:02:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.89 2015-02-11 17:37:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.88 2015-01-31 01:02:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.89 2015-02-11 17:37:10 cg Exp $'
 ! !