--- a/TestCase.st	Sat Oct 03 15:27:18 2009 +0200
+++ b/TestCase.st	Sat Oct 03 15:27:23 2009 +0200
@@ -242,7 +242,17 @@
 iconInBrowserSymbol
     <resource: #programImage>
 
+    |lastResult|
+
     self theNonMetaclass isAbstract ifTrue:[^ super iconInBrowserSymbol].
+
+    lastResult := self lastTestRunResultOrNil.
+    lastResult == true ifTrue:[
+        ^ #testCasePassedIcon
+    ].
+    lastResult == false ifTrue:[
+        ^ #testCaseFailedIcon
+    ].
     ^ #testCaseClassIcon
 ! !
 
@@ -777,11 +787,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.51 2009-10-01 13:43:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.52 2009-10-03 13:27:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.51 2009-10-01 13:43:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.52 2009-10-03 13:27:23 cg Exp $'
 ! !
 
 TestCase initialize!