--- a/Tools__MethodList.st	Sat Jan 23 11:26:51 2016 +0100
+++ b/Tools__MethodList.st	Sat Jan 23 11:27:04 2016 +0100
@@ -1733,9 +1733,10 @@
         ].
     ].
     icn isNil ifTrue:[
-        (selector isSymbol and:[selector startsWith:'test']) ifTrue:[
-            (((cls isSubclassOf:TestCase) and:[cls isAbstract not])
-            or:[showSyntheticMethods value and:[aMethod isSynthetic]]) ifTrue:[
+        "/ (selector isSymbol and:[selector startsWith:'test']) ifTrue:[
+        (((cls isSubclassOf:TestCase) and:[cls isAbstract not])
+        or:[showSyntheticMethods value and:[aMethod isSynthetic]]) ifTrue:[
+            (cls isTestSelector:selector) ifTrue:[
                 "JV@2011-11-17: Show thumbs even if not all test were run"
 
                 lastResultOrNil := cls rememberedOutcomeFor:selector.