--- a/TestResult.st	Mon Aug 07 12:59:21 2006 +0200
+++ b/TestResult.st	Mon Aug 07 12:59:28 2006 +0200
@@ -156,7 +156,8 @@
 runCase:aTestCase 
     |testCasePassed|
 
-    testCasePassed := [
+    testCasePassed := 
+            [
                 [
                     aTestCase runCase.
                     true
@@ -181,7 +182,7 @@
         self passed add:aTestCase
     ]
 
-    "Modified: / 17-07-2006 / 12:13:51 / cg"
+    "Modified: / 06-08-2006 / 10:42:42 / cg"
 ! !
 
 !TestResult methodsFor:'testing'!
@@ -224,5 +225,5 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.16 2006-07-17 11:28:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.17 2006-08-07 10:59:28 cg Exp $'
 ! !