--- a/TestSuite.st	Thu Sep 21 14:15:44 2017 +0200
+++ b/TestSuite.st	Thu Oct 12 13:58:48 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/sunit' }"
 
 "{ NameSpace: Smalltalk }"
@@ -105,6 +107,16 @@
 	self tests do: [ :each | each removeDependentFromHierachy: anObject]
 ! !
 
+!TestSuite methodsFor:'printing'!
+
+printOn:aStream
+    aStream 
+        nextPutAll:self class nameWithoutPrefix;
+        nextPutAll:'[';
+        nextPutAll:self name ? '???';
+        nextPutAll:']'.
+! !
+
 !TestSuite methodsFor:'queries'!
 
 isTestCase