--- a/Tools__AbstractTestRunner.st	Sun Jan 29 12:56:58 2012 +0000
+++ b/Tools__AbstractTestRunner.st	Sun Jan 29 15:33:37 2012 +0000
@@ -158,21 +158,34 @@
 
 suiteNameFromProtocols: protocols
 
-    protocols size = 1 ifTrue:[^'tests categorized "', protocols anyOne , '"'].
+    protocols size == 0 ifTrue:[
+        ^'tests'
+    ].
+    protocols size == 1 ifTrue:[
+        protocols anyOne notNil ifTrue:[
+            ^'tests categorized "', protocols anyOne , '"'
+        ] ifFalse:[
+            ^'tests'
+        ]
+    ].    
     ^'tests in ', protocols size printString , ' categories'
 
     "Created: / 15-03-2010 / 13:22:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 15-03-2010 / 19:53:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-10-2011 / 22:59:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !AbstractTestRunner class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.10 2011/10/18 21:12:21 vrany Exp $'
+!
+
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.4 2011/07/05 12:15:23 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.10 2011/10/18 21:12:21 vrany Exp §'
 !
 
 version_SVN
     ^ '$Id: Tools__AbstractTestRunner.st 7681 2011-03-04 11:30:02Z vranyj1 $'
 ! !
 
-AbstractTestRunner initialize!
\ No newline at end of file
+AbstractTestRunner initialize!