--- a/TestCase.st	Tue Jul 13 13:58:25 2004 +0200
+++ b/TestCase.st	Thu Sep 02 10:30:15 2004 +0200
@@ -426,7 +426,7 @@
                         
         aStream nextPutAll: self name.
         aStream nextPutAll: '>>'.
-        aStream nextPutAll: testSelector
+        testSelector printOn: aStream
 ! !
 
 !TestCase methodsFor:'private'!
@@ -606,7 +606,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.36 2003-09-26 15:53:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.37 2004-09-02 08:30:15 cg Exp $'
 ! !
 
 TestCase initialize!