--- a/Tools__TestRunner2.st	Tue Aug 09 23:57:18 2011 +0200
+++ b/Tools__TestRunner2.st	Thu Aug 11 00:25:08 2011 +0200
@@ -1698,7 +1698,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__TestRunner2.st,v 1.19 2011-08-09 20:42:20 cg Exp $'
+    ^'$Id: Tools__TestRunner2.st,v 1.20 2011-08-10 22:25:08 vrany Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -1939,7 +1939,7 @@
 makeClassEntryFor: class result: result tests: tests
 
     | entry children |
-    entry := ListEntry labeled: class name.
+    entry := ListEntry labeled: (class perform:#sunitName ifNotUnderstood:[class name]).
     children := (tests asSortedCollection: [:a :b|a selector < b selector])
         collect:[:test|self makeTestEntryFor: test result: result].
     entry setChildren: children.
@@ -2197,11 +2197,11 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.19 2011-08-09 20:42:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.20 2011-08-10 22:25:08 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.19 2011-08-09 20:42:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.20 2011-08-10 22:25:08 vrany Exp $'
 !
 
 version_SVN