--- a/TestResult.st	Thu Dec 14 14:08:04 2000 +0100
+++ b/TestResult.st	Thu Dec 14 14:08:21 2000 +0100
@@ -112,18 +112,18 @@
 !TestResult methodsFor:'Running'!
 
 runCase: aTestCase
-	runCount := runCount + 1.
-	[[aTestCase runCase] 
-		sunitOn: self class failure
-		do: 
-			[:signal | 
-			self failures add: aTestCase.
-			signal sunitExitWith: nil]]
-			sunitOn: self class error
-			do:
-				[:signal |
-				self errors add: aTestCase.
-				signal sunitExitWith: nil]
+        runCount := runCount + 1.
+        [[aTestCase runCase] 
+                on: self class failure
+                do: 
+                        [:signal | 
+                        self failures add: aTestCase.
+                        signal sunitExitWith: nil]]
+                        on: self class error
+                        do:
+                                [:signal |
+                                self errors add: aTestCase.
+                                signal sunitExitWith: nil]
 
     "Modified: / 21.6.2000 / 10:10:06 / Sames"
 ! !
@@ -141,5 +141,5 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.3 2000-12-10 13:21:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.4 2000-12-14 13:08:21 cg Exp $'
 ! !