--- a/UserPreferences.st	Thu Apr 21 17:26:29 2016 +0200
+++ b/UserPreferences.st	Thu Apr 21 17:34:14 2016 +0200
@@ -761,6 +761,7 @@
             s nextPutLine:(' territory:',UserPreferences current languageTerritory storeString,'.').
         ].    
         s syncData.
+        userPrefs beUnmodified.
     ].
 
     "
@@ -841,14 +842,23 @@
 !
 
 beModified
+    "this is not needed for settings applications, which notice any modifications
+     themself. Howvever, if someone else modifies the settings (programmatically),
+     the change should be remembered, so that the user can be warned at session end"
+     
     modified := true
 !
 
 beUnmodified
+    "done when saved"
+    
     modified := false
 !
 
 isModified
+    "this is set, if someone modifies the settings programmatically,
+     so that the user can be warned at session end"
+
     ^ modified ? false
 ! !