--- a/Tools_MethodList.st	Wed Nov 07 23:05:40 2012 +0100
+++ b/Tools_MethodList.st	Thu Nov 08 00:04:35 2012 +0100
@@ -1557,7 +1557,7 @@
 
     |s icn variablesToHighlight classVarsToHighLight 
      doHighLight doHighLightRed clr emp cat l redefIcon 
-     metrics complexity complexityString complexityIcon mark|
+     metrics complexity complexityString complexityIcon mark lastResultOrNil|
 
     aMethod isNil ifTrue:[
         "/ a non-existing (pseudo) method (such as required protocol)
@@ -1627,14 +1627,18 @@
             ((cls isSubclassOf:TestCase) 
             and:[cls isAbstract not]) ifTrue:[
                 "JV@2011-11-17: Show thumbs even if not all test were run"
-                "/cls lastTestRunResultOrNil "== false" notNil ifTrue:[
-                    ((cls testSelectorFailed:selector) or:[(cls testSelectorError:selector)]) ifTrue:[
-                        icn := SystemBrowser testCaseFailedIcon
+
+                lastResultOrNil := cls rememberedOutcomeFor:selector.
+                lastResultOrNil notNil ifTrue:[
+                    (lastResultOrNil result == TestResult statePass) ifTrue:[
+                        icn := SystemBrowser testCasePassedIcon
                     ] ifFalse:[
-                        (cls testSelectorPassed: selector) ifTrue:
-                            [icn := SystemBrowser testCasePassedIcon]
-                    ].
-                "/]
+                        ((lastResultOrNil result == TestResult stateError)
+                        or:[ (lastResultOrNil result == TestResult stateFail) ]) ifTrue:[
+                            icn := SystemBrowser testCaseFailedIcon
+                        ] 
+                    ]
+                ].
             ].
         ]
     ].
@@ -1789,9 +1793,9 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.73 2012-11-07 16:32:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.74 2012-11-07 23:04:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.73 2012-11-07 16:32:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.74 2012-11-07 23:04:35 cg Exp $'
 ! !