--- a/Tools__AbstractTestRunner.st	Tue Oct 18 21:43:54 2011 +0200
+++ b/Tools__AbstractTestRunner.st	Tue Oct 18 23:12:21 2011 +0200
@@ -158,21 +158,30 @@
 
 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.9 2011-08-21 12:58:38 vrany Exp $'
+    ^ '$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.9 2011-08-21 12:58:38 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.10 2011-10-18 21:12:21 vrany Exp $'
 !
 
 version_SVN