--- a/TestCase.st	Thu Mar 28 13:56:55 2019 +0100
+++ b/TestCase.st	Thu Mar 28 14:14:00 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/sunit' }"
 
 "{ NameSpace: Smalltalk }"
@@ -964,27 +966,36 @@
 !
 
 run: aResult beforeEachDo:block1 afterEachDo:block2
-
-    ^self run: aResult beforeEachDo:block1 afterEachDo:block2 resetResources: true
+    "run and fill (update) aResult"
+    
+    ^ self 
+        run:aResult 
+        beforeEachDo:block1 
+        afterEachDo:block2 
+        resetResources:true
 
     "Modified: / 29-07-2011 / 12:06:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 28-03-2019 / 13:22:02 / Claus Gittinger"
 !
 
-run: result beforeEachDo: before afterEachDo: after resetResources: reset
+run:aResult beforeEachDo:before afterEachDo:after resetResources:reset
+    "run and fill (update) aResult"
+
     ^ self
-	run: result
-	beforeEachDo: before
-	afterEachDo: after
-	resetResources: reset
-	debug: false
+        run:aResult
+        beforeEachDo:before
+        afterEachDo:after
+        resetResources:reset
+        debug:false
 
     "Created: / 29-07-2011 / 12:04:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 21-08-2011 / 17:45:17 / cg"
+    "Modified (comment): / 28-03-2019 / 13:22:55 / Claus Gittinger"
 !
 
-run: result beforeEachDo: before afterEachDo: after resetResources: reset debug:doDebug
-
-    "Workhorse for running a testcase. If reset is true, then
+run:result beforeEachDo:before afterEachDo:after resetResources:reset debug:doDebug
+    "Workhorse for running a testcase and updating result.
+     If reset is true, then
      the resources are reset, otherwise not"
 
     "1. Execute before block"
@@ -1007,12 +1018,12 @@
     "2. Run the testcase"
     reset ifTrue:[
         [
-            result runCase: self debugged:doDebug
+            result runCase:self debugged:doDebug
         ] ensure: [
             TestResource resetResources: self resources
         ].
     ] ifFalse:[
-        result runCase: self debugged:doDebug
+        result runCase:self debugged:doDebug
     ].
 
     "3. Execute after block"
@@ -1037,6 +1048,7 @@
     "Created: / 21-08-2011 / 17:44:56 / cg"
     "Modified: / 13-07-2017 / 14:02:53 / cg"
     "Modified: / 28-03-2019 / 11:16:47 / Claus Gittinger"
+    "Modified (format): / 28-03-2019 / 13:26:15 / Claus Gittinger"
 !
 
 run: aResult beforeEachTestCaseDo:block1 afterEachTestCaseDo:block2