--- a/TestResult.st	Fri Aug 16 22:55:53 2019 +0200
+++ b/TestResult.st	Sun Aug 25 14:52:27 2019 +0200
@@ -395,7 +395,8 @@
 
     outcome result: (TestResult stateError).
     outcome remember.
-    ^ self errorOutcomes add:outcome.
+    self errorOutcomes add:outcome.
+    ^ outcome
 
     "Created: / 03-08-2011 / 13:50:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 06-08-2011 / 09:46:41 / cg"
@@ -419,7 +420,8 @@
     ].
     outcome result: (TestResult stateFail).
     outcome remember.
-    ^ self failureOutcomes add: outcome
+    self failureOutcomes add:outcome.
+    ^ outcome
 
     "Created: / 03-08-2011 / 13:53:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 06-08-2011 / 09:55:17 / cg"
@@ -431,7 +433,8 @@
 
     outcome result: (TestResult statePass).
     outcome remember.
-    ^ self passedOutcomes add: outcome
+    self passedOutcomes add: outcome.
+    ^ outcome
 
     "Modified: / 20-08-2011 / 12:44:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -449,7 +452,8 @@
     outcome result: (TestResult stateSkip).
     outcome exceptionDetail:('skipped because: ',detail asString).
     outcome remember.
-    ^ self skippedOutcomes add: outcome
+    self skippedOutcomes add: outcome.
+    ^ outcome
 
     "Created: / 08-06-2019 / 13:49:15 / Claus Gittinger"
 !