--- a/Tools__AbstractTestRunner.st	Fri Nov 30 14:25:59 2012 +0000
+++ b/Tools__AbstractTestRunner.st	Fri Nov 30 17:23:39 2012 +0000
@@ -148,10 +148,14 @@
 !
 
 suiteNameFromMethods: methods
+    |numMethods|
 
-    methods size = 1 ifTrue:[^methods anyOne selector].
-    ^methods size printString , ' tests from ' ,
-        (self suiteNameFromClasses: (methods collect:[:m|m mclass]) asSet)
+    (numMethods := methods size == 1) ifTrue:[^ methods anyOne selector].
+    ^numMethods printString , ' tests from ' ,
+        (self suiteNameFromClasses: 
+            (methods 
+                collect:[:m|m mclass] 
+                thenSelect:[:c | c notNil]) asSet)
 
     "Created: / 15-03-2010 / 13:22:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -177,15 +181,15 @@
 !AbstractTestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.10 2011/10/18 21:12:21 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.11 2012/10/17 18:12:41 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.10 2011/10/18 21:12:21 vrany Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.11 2012/10/17 18:12:41 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: Tools__AbstractTestRunner.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Id: Tools__AbstractTestRunner.st 8074 2012-11-30 17:23:39Z vranyj1 $'
 ! !
 
 AbstractTestRunner initialize!