--- a/Tools__TestRunner2.st	Tue Apr 02 11:33:27 2013 +0200
+++ b/Tools__TestRunner2.st	Tue Apr 02 11:33:29 2013 +0200
@@ -1425,7 +1425,7 @@
 
 classListMenuBrowse
     UserPreferences current systemBrowserClass 
-        browseClasses: (self selectedTestSuite tests collect:[:each | each class]) asSet
+        browseClasses: (self selectedTestSuite tests collect:[:each | each class] as:Set)
 
     "Created: / 30-06-2011 / 22:02:26 / cg"
 !
@@ -1845,7 +1845,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.37 2013-03-30 14:16:29 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.38 2013-04-02 09:33:29 stefan Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -2054,7 +2054,7 @@
     (results isEmptyOrNil or:[results size = 1])
         ifTrue:[timestampFormat := nil].
 
-    ((results collect:[:each|each timestamp]) asSet size = 1)
+    ((results collect:[:each|each timestamp] as:Set) size = 1)
         ifTrue: [timestampFormat := ' (%h:%m)']
         ifFalse:[timestampFormat := ' (%(month)-%(day) %h:%m)']
 
@@ -2344,11 +2344,11 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.37 2013-03-30 14:16:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.38 2013-04-02 09:33:29 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.37 2013-03-30 14:16:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.38 2013-04-02 09:33:29 stefan Exp $'
 !
 
 version_SVN