--- a/AbstractSettingsApplication.st	Sun Mar 01 01:43:11 2015 +0100
+++ b/AbstractSettingsApplication.st	Sun Mar 01 14:52:11 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
 	      All Rights Reserved
@@ -15,7 +17,7 @@
 
 ApplicationModel subclass:#AbstractSettingsApplication
 	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
-		requestor'
+		requestor anySettingChanged'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Smalltalk'
@@ -619,7 +621,7 @@
 
 saveSettings
     self basicSaveSettings.
-
+    anySettingChanged := true.
     self modifiedChannel value:false.
 !
 
@@ -752,6 +754,8 @@
     resources := self class classResources.
     currentUserPrefs isNil ifTrue:[ self initializeCurrentUserPreferences ].
     settingsString := (UISpecification from:(self class windowSpec)) window label.
+    anySettingChanged := false.
+
     "/ self readSettings.
 
     "Modified: / 12-05-2010 / 17:27:44 / cg"
@@ -19013,10 +19017,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.589 2015-02-24 09:41:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.590 2015-03-01 13:52:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.589 2015-02-24 09:41:39 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.590 2015-03-01 13:52:11 cg Exp $'
+! !
+