--- a/SystemBrowser.st	Sun Apr 28 15:34:16 2013 +0200
+++ b/SystemBrowser.st	Sun Apr 28 15:48:42 2013 +0200
@@ -1703,18 +1703,29 @@
     |lastResult|
 
     lastResult := cls lastTestRunResultOrNil.
-
-    lastResult == true ifTrue:[
-        ^ self testCasePassedIcon
-    ].
-    lastResult == false ifTrue:[
-        ^ self testCaseFailedIcon
+    lastResult notNil ifTrue:[
+        lastResult == TestResult statePass ifTrue:[
+            ^ self testCasePassedIcon
+        ].
+        lastResult == TestResult stateFail ifTrue:[
+            ^ self testCaseFailedIcon
+        ].
+        lastResult == TestResult stateError ifTrue:[
+            ^ self testCaseErrorIcon
+        ].
     ].
     ^ self testCaseUnknownResultIcon
 
     "Modified: / 06-08-2006 / 11:14:12 / cg"
 !
 
+testCaseErrorIcon
+    <resource: #programImage>
+
+    "/ only left here for backward compatibility...
+    ^ ToolbarIconLibrary testCaseErrorIcon
+!
+
 testCaseFailedIcon
     <resource: #programImage>
 
@@ -6002,7 +6013,7 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.314 2013-04-25 13:11:19 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.315 2013-04-28 13:48:42 cg Exp $'
 !
 
 version_SVN