--- a/Tools__ClassList.st	Mon Apr 01 14:07:29 2013 +0100
+++ b/Tools__ClassList.st	Tue Apr 02 11:13:20 2013 +0100
@@ -856,7 +856,7 @@
         something == #lastTestRunResult ifTrue:[
             cls := aParameter at:1.
             sel := aParameter at:2.
-            (cls notNil and:[sel isNil]) ifTrue:[
+            (cls notNil and:[sel notNil]) ifTrue:[
                 classListValue size > 0 ifTrue:[
                     ((classListValue includesIdentical:cls theNonMetaclass)
                     or:[(classListValue includesIdentical:cls theMetaclass)]) ifTrue:[
@@ -937,6 +937,7 @@
     super update:something with:aParameter from:changedObject
 
     "Modified: / 05-06-2012 / 23:39:34 / cg"
+    "Modified: / 02-04-2013 / 10:51:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ClassList methodsFor:'drag & drop'!