--- a/quickSelfTest/RunUnitTests.st	Tue Oct 10 15:16:03 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st	Tue Oct 10 15:17:18 2017 +0200
@@ -153,8 +153,8 @@
     self logInfo:'collecting unit test classes to run'.
     unitTestSuite := TestSuite named:unitTestSuiteName.
 
-Transcript showCR:'1 ', (Smalltalk at: #'stx_goodies_regression') printString.
-Transcript showCR:'2 ', (Smalltalk at: #'stx_goodies_regression') classNamesAndAttributes printString.
+self logInfo:'1 ', (Smalltalk at: #'stx_goodies_regression') printString.
+self logInfo:'2 ', (Smalltalk at: #'stx_goodies_regression') classNamesAndAttributes printString.
 
     (Smalltalk at: #'stx_goodies_regression') classNamesAndAttributes do:[:eachClassNameAndAttributes |
         eachClassNameAndAttributes isSymbol ifTrue:[
@@ -272,6 +272,10 @@
 
 !RunUnitTests class methodsFor:'documentation'!
 
+version
+    ^ '$Header$'
+!
+
 version_CVS
     ^ '$Header$'
 ! !