--- a/TestRunner.st	Wed Jun 18 00:42:03 2003 +0200
+++ b/TestRunner.st	Mon Aug 18 14:15:30 2003 +0200
@@ -495,11 +495,11 @@
 
     "/ defect := nil.
 
-        self withWaitCursorDo:[
-            (result isFailure: testCase) 
-                ifTrue: [testCase debugAsFailure]
-                ifFalse: [testCase debug].
-        ].
+    self withWaitCursorDo:[
+        ((result isFailure: testCase) "or:[(result isError: testCase)]")    
+            ifTrue: [testCase debugAsFailure]
+            ifFalse: [testCase debug].
+    ].
 
     "Modified: / 21.6.2000 / 12:12:09 / Sames"
 !
@@ -1132,5 +1132,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.50 2003-06-17 22:42:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.51 2003-08-18 12:15:30 cg Exp $'
 ! !