--- a/SettingsDialog.st	Thu Dec 05 20:52:24 2019 +0100
+++ b/SettingsDialog.st	Sat Dec 07 12:51:49 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -632,17 +634,7 @@
 !
 
 currentSettingsFilename
-    | file |
-
-    "JV@2012-02-07: Changed to save preferences back to file from which
-     they have been loaded (if known). If no such file is known,
-     save to DEFAULT USER SETTINGS file (default ~/.smalltalk/settings.rc)"
-
-    file := UserPreferences current at: #settingsFilename ifAbsent:[nil].
-    file isNil ifTrue:[
-        file := UserPreferences defaultUserSettingsFile.
-    ].
-    ^ file.
+    ^ UserPreferences currentSettingsFilename.
 !
 
 saveSettingsAsDefaultSettings