--- a/TestRunner.st	Sat Mar 23 11:47:16 2019 +0100
+++ b/TestRunner.st	Tue Mar 26 18:21:51 2019 +0100
@@ -828,9 +828,11 @@
     self removeFromPassedTests:caseName.
     self addToFailedTests:caseName.
 
-    (cls := Smalltalk classNamed:caseName) notNil ifTrue:[
-	cls rememberFailedTestRunWithResult:result.
-    ].
+    "/ (cls := Smalltalk classNamed:caseName) notNil ifTrue:[
+    "/    cls rememberFailedTestRunWithResult:result.
+    "/ ].
+
+    "Modified: / 26-03-2019 / 18:20:29 / Claus Gittinger"
 !
 
 testPassed:caseName
@@ -842,9 +844,11 @@
 "/    Transcript show:'passed: '; showCR:caseName.
 "/    Transcript show:'passed: '; showCR:caseName className.
 
-    (cls := Smalltalk classNamed:caseName) notNil ifTrue:[
-	cls rememberPassedTestRun
-    ].
+"/    (cls := Smalltalk classNamed:caseName) notNil ifTrue:[
+"/        cls rememberPassedTestRun
+"/    ].
+
+    "Modified: / 26-03-2019 / 18:20:38 / Claus Gittinger"
 !
 
 timeSinceLastPassAsString