--- a/Tools__TestRunner2.st	Wed Jul 06 21:00:46 2011 +0200
+++ b/Tools__TestRunner2.st	Wed Jul 06 21:40:27 2011 +0200
@@ -32,7 +32,7 @@
 		packageList classList classListOutGeneratorHolder
 		classListInGeneratorHolder modeHolder detailsHolder
 		failureListHolder failureSelectionHolder errorListHolder
-		errorSelectionHolder lastPass resultHolder'
+		errorSelectionHolder lastPass resultHolder lastBrowser'
 	classVariableNames:'History'
 	poolDictionaries:''
 	category:'SUnit-UI'
@@ -1170,15 +1170,24 @@
 !
 
 runCoverageAction
-    | allCoveredClasses browser result |
+    | allCoveredClasses browser result|
 
     allCoveredClasses := OrderedCollection new.
     self selectedTestCases do:[:eachClass | 
         allCoveredClasses addAll:(eachClass coveredClasses).
     ].
 
-    browser := NewSystemBrowser browseClasses:allCoveredClasses.
+    lastBrowser notNil ifTrue:[
+        browser := lastBrowser.
+    ] ifFalse:[
+        browser := NewSystemBrowser browseClasses:allCoveredClasses.
+        lastBrowser :=  browser.
+    ].
+
+    browser showCoverageInformation value:true.
     browser selectClasses:allCoveredClasses.
+    browser window topView raise.
+
     allCoveredClasses do:[:eachClass |
         browser recompileClassWithInstrumentation:eachClass
     ].
@@ -1669,7 +1678,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__TestRunner2.st,v 1.8 2011-07-06 16:30:34 cg Exp $'
+    ^'$Id: Tools__TestRunner2.st,v 1.9 2011-07-06 19:40:27 cg Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -2164,7 +2173,7 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.8 2011-07-06 16:30:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.9 2011-07-06 19:40:27 cg Exp $'
 !
 
 version_SVN