--- a/Tools__NewSystemBrowser.st	Thu Jan 21 01:56:22 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Jan 21 21:51:46 2016 +0100
@@ -49,7 +49,7 @@
 		LastClassSearchBoxShowedFullName CachedTagToRevisionMapping
 		CachedMethodsImplemented LastCypressDirectory
 		LastClassSearchBoxShowedJavaOnly LastRemoteRepository
-		LastClassDocDirectory'
+		LastClassDocDirectory DefaultShowCoverage'
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
 !
@@ -20439,8 +20439,9 @@
     |holder|
 
     (holder := builder bindingAt:#showCoverageInformation) isNil ifTrue:[
-        holder := true"false" asValue.
+        holder := (DefaultShowCoverage ? true) asValue.
         builder aspectAt:#showCoverageInformation put: holder.
+        holder addDependent:self.
     ].
     ^ holder
 
@@ -24387,12 +24388,16 @@
         self enqueueDelayedUpdateBufferLabel.
         ^ self.
     ].
-
+    changedObject == self showCoverageInformation ifTrue:[  
+        DefaultShowCoverage := changedObject value.
+        ^ self
+    ].    
+    
     something == #visitedClassHistory ifTrue:[
         self visitedClassesHistory contents:(self class visitedClassNamesHistory).
         ^ self.
     ].
-
+    
     changedObject == environment ifTrue:[
         codeAspect := self codeAspect.
         isForAspect := (codeAspect == something)