--- a/ChangesBrowser.st	Mon Aug 26 00:49:40 2013 +0200
+++ b/ChangesBrowser.st	Mon Aug 26 00:50:29 2013 +0200
@@ -1163,13 +1163,15 @@
 
     |doCompare|
 
+    self askIfChangesAreToBeWrittenBack.
+
     doCompare := autoCompare value.
     DefaultAutoCompare := doCompare.
     self setupTabSpec.
     doCompare ifTrue:[
-	self doUpdate
+        self doUpdate
     ] ifFalse:[
-	changeListView invalidate. "/ clear; redraw.
+        changeListView invalidate. "/ clear; redraw.
     ]
 !
 
@@ -6536,10 +6538,10 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.448 2013-08-22 13:53:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.449 2013-08-25 22:50:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.448 2013-08-22 13:53:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.449 2013-08-25 22:50:29 cg Exp $'
 ! !