--- a/Tools__TestRunner2.st	Tue Jul 30 15:56:02 2013 +0200
+++ b/Tools__TestRunner2.st	Tue Jul 30 19:34:24 2013 +0200
@@ -1545,13 +1545,14 @@
                             [:gen | 
                             |testCases|
 
-                            testCases := OrderedCollection new:8.
+                            testCases := OrderedCollection new.
                             gen do:[:cls | (self isTestCaseLike:cls) ifTrue:[ testCases add:cls ] ].
                             testCases ]
                         argument:self classListOutGeneratorHolder ].
     ^ classListInGeneratorHolder
 
     "Created: / 01-02-2010 / 09:50:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-07-2013 / 19:28:47 / cg"
 !
 
 classListOutGeneratorHolder
@@ -1846,7 +1847,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.42 2013-07-04 15:19:38 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.43 2013-07-30 17:34:24 cg Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -2109,7 +2110,7 @@
     classes := Dictionary new.
     result tests do:
         [:test|
-        (classes at: test class ifAbsentPut:[OrderedCollection new:1])
+        (classes at: test class ifAbsentPut:[OrderedCollection new])
             add: test].
     children := classes keysAndValuesCollect:
                     [:class :tests|
@@ -2118,7 +2119,7 @@
     ^entry.
 
     "Created: / 19-03-2010 / 08:36:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 04-08-2011 / 20:30:39 / cg"
+    "Modified: / 30-07-2013 / 19:29:10 / cg"
 !
 
 makeRootEntry
@@ -2347,15 +2348,15 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.42 2013-07-04 15:19:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.43 2013-07-30 17:34:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.42 2013-07-04 15:19:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.43 2013-07-30 17:34:24 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TestRunner2.st,v 1.42 2013-07-04 15:19:38 cg Exp $'
+    ^ '$Id: Tools__TestRunner2.st,v 1.43 2013-07-30 17:34:24 cg Exp $'
 ! !