--- a/Tools__TestRunner2.st	Sat Feb 28 03:02:08 2015 +0100
+++ b/Tools__TestRunner2.st	Sat Feb 28 03:02:31 2015 +0100
@@ -1465,16 +1465,16 @@
 !
 
 classListMenuBrowseCoveredClasses
-    |setOfCoveredClasses|
+    |setOfCoveredClasses setOfAllCoveredClasses|
 
     setOfCoveredClasses := Set new.
     (self selectedTestSuite tests collect:[:each | each class]) do:[:eachTestClass |
-        eachTestClass coveredClasses do:[:eachCoveredClass |
-            setOfCoveredClasses addAll:(eachCoveredClass withAllPrivateClasses)
-        ].
+        setOfCoveredClasses addAll:eachTestClass coveredClasses.
     ].
-
-    UserPreferences systemBrowserClass browseClasses:setOfCoveredClasses
+    setOfAllCoveredClasses := Set new.
+    setOfCoveredClasses do:[:eachCoveredClass | setOfAllCoveredClasses addAll:(eachCoveredClass withAllPrivateClasses)].
+
+    UserPreferences systemBrowserClass browseClasses:setOfAllCoveredClasses
 
     "Created: / 30-06-2011 / 22:02:26 / cg"
 !
@@ -1926,7 +1926,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.61 2015-02-27 22:56:58 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.62 2015-02-28 02:02:31 cg Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -2431,15 +2431,15 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.61 2015-02-27 22:56:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.62 2015-02-28 02:02:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.61 2015-02-27 22:56:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.62 2015-02-28 02:02:31 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TestRunner2.st,v 1.61 2015-02-27 22:56:58 cg Exp $'
+    ^ '$Id: Tools__TestRunner2.st,v 1.62 2015-02-28 02:02:31 cg Exp $'
 ! !