--- a/Tools__TestRunner2.st	Thu Nov 08 00:15:47 2012 +0100
+++ b/Tools__TestRunner2.st	Thu Nov 08 00:23:48 2012 +0100
@@ -1315,7 +1315,7 @@
     ].
 
     self withWaitCursorDo:[
-        InstrumentationContext run:[
+        InstrumentationContext runForCoverage:[
             result := self runSuite: self selectedTestSuite.
         ].
         History add: result.
@@ -1844,7 +1844,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.32 2012-11-01 11:01:00 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.33 2012-11-07 23:23:48 cg Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -2341,11 +2341,11 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.32 2012-11-01 11:01:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.33 2012-11-07 23:23:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.32 2012-11-01 11:01:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.33 2012-11-07 23:23:48 cg Exp $'
 !
 
 version_SVN