--- a/Tools_MethodList.st	Sun Aug 21 15:01:21 2011 +0200
+++ b/Tools_MethodList.st	Sun Aug 21 15:48:35 2011 +0200
@@ -1581,7 +1581,7 @@
             ((cls isSubclassOf:TestCase) 
             and:[cls isAbstract not]) ifTrue:[
                 cls lastTestRunResultOrNil "== false" notNil ifTrue:[
-                    (cls testSelectorFailed:selector) ifTrue:[
+                    ((cls testSelectorFailed:selector) or:[(cls testSelectorError:selector)]) ifTrue:[
                         icn := SystemBrowser testCaseFailedIcon
                     ] ifFalse:[
                         (cls testSelectorPassed: selector) ifTrue:
@@ -1688,7 +1688,7 @@
     "Created: / 22-10-1996 / 19:51:00 / cg"
     "Modified: / 30-04-2010 / 11:54:32 / cg"
     "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 15-03-2010 / 18:16:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-08-2011 / 14:46:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MethodList methodsFor:'private-watching'!
@@ -1738,9 +1738,9 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.58 2011-08-18 00:16:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.59 2011-08-21 13:48:35 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.58 2011-08-18 00:16:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.59 2011-08-21 13:48:35 vrany Exp $'
 ! !