--- a/Tools__TestRunner2.st	Fri Sep 01 14:27:08 2017 +0200
+++ b/Tools__TestRunner2.st	Fri Sep 01 14:27:21 2017 +0200
@@ -1461,10 +1461,11 @@
 !TestRunner2 methodsFor:'actions - menu'!
 
 classListMenuBrowse
-    UserPreferences systemBrowserClass 
+    SystemBrowser default
         browseClasses: (self selectedTestSuite tests collect:[:each | each class] as:Set)
 
     "Created: / 30-06-2011 / 22:02:26 / cg"
+    "Modified: / 01-09-2017 / 14:23:21 / cg"
 !
 
 classListMenuBrowseCoveredClasses
@@ -1477,9 +1478,10 @@
     setOfAllCoveredClasses := Set new.
     setOfCoveredClasses do:[:eachCoveredClass | setOfAllCoveredClasses addAll:(eachCoveredClass withAllPrivateClasses)].
 
-    UserPreferences systemBrowserClass browseClasses:setOfAllCoveredClasses
+    SystemBrowser default browseClasses:setOfAllCoveredClasses
 
     "Created: / 30-06-2011 / 22:02:26 / cg"
+    "Modified: / 01-09-2017 / 14:23:24 / cg"
 !
 
 openDocumentation