--- a/Tools__ClassList.st	Mon Dec 02 22:53:59 2013 +0000
+++ b/Tools__ClassList.st	Fri Dec 06 17:11:32 2013 +0000
@@ -856,7 +856,8 @@
         something == #lastTestRunResult ifTrue:[
             cls := aParameter at:1.
             sel := aParameter at:2.
-            (cls notNil and:[sel isNil]) ifTrue:[
+            "/ JV: Note: change is triggered only if outcome changes
+            cls notNil ifTrue:[
                 classListValue size > 0 ifTrue:[
                     ((classListValue includesIdentical:cls theNonMetaclass)
                     or:[(classListValue includesIdentical:cls theMetaclass)]) ifTrue:[
@@ -937,6 +938,7 @@
     super update:something with:aParameter from:changedObject
 
     "Modified: / 05-06-2012 / 23:39:34 / cg"
+    "Modified: / 06-12-2013 / 17:06:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ClassList methodsFor:'drag & drop'!