--- a/ChangesBrowser.st	Tue Jun 03 18:23:37 2003 +0200
+++ b/ChangesBrowser.st	Tue Jun 03 18:23:55 2003 +0200
@@ -773,7 +773,7 @@
 
 showingDiffs
     showingDiffs isNil ifTrue:[
-        showingDiffs := (DefaultShowingDiffs ? true) asValue.
+        showingDiffs := self showingDiffsDefault asValue.
         showingDiffs 
             onChangeEvaluate:[
                 showingDiffs value ifTrue:[
@@ -788,6 +788,10 @@
     ^ showingDiffs
 !
 
+showingDiffsDefault
+    ^ (DefaultShowingDiffs ? true)
+!
+
 theSingleSelection
     |sel|
 
@@ -5498,5 +5502,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.301 2003-05-26 09:32:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.302 2003-06-03 16:23:55 cg Exp $'
 ! !