--- a/TestCase.st	Tue Jul 05 17:45:47 2011 +0200
+++ b/TestCase.st	Tue Jul 05 18:22:57 2011 +0200
@@ -721,9 +721,15 @@
 !
 
 runCase
-	self resources do: [:each | each availableFor: self].
-	[self setUp.
-	self performTest] sunitEnsure: [self tearDown]
+        self resources do: [:each | each availableFor: self].
+        [
+            self setUp.
+            self performTest
+        ] sunitEnsure: [
+            self tearDown
+        ]
+
+    "Modified (format): / 05-07-2011 / 18:21:33 / cg"
 !
 
 runCaseAsFailure
@@ -750,7 +756,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.60 2011-07-05 12:22:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.61 2011-07-05 16:22:57 cg Exp $'
 !
 
 version_SVN