--- a/TestRunner.st	Thu Nov 07 12:37:13 2002 +0100
+++ b/TestRunner.st	Thu Nov 07 19:03:46 2002 +0100
@@ -907,7 +907,6 @@
 
     self removeFromPassedTests:caseName.
     self addToFailedTests:caseName.
-    Transcript show:'failed: '; showCR:caseName.
 
     (cls := Smalltalk classNamed:caseName) notNil ifTrue:[
         cls rememberFailedTestRun
@@ -1124,5 +1123,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.43 2002-11-07 11:37:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.44 2002-11-07 18:03:46 cg Exp $'
 ! !