--- a/SettingsDialog.st	Thu May 08 14:26:59 2008 +0200
+++ b/SettingsDialog.st	Thu May 08 16:07:13 2008 +0200
@@ -389,20 +389,26 @@
     ]
 !
 
+saveSettingsAsDefaultSettings
+    | file |
+
+    file := (Filename currentDirectory construct:UserPreferences defaultSettingsFilename) asAbsoluteFilename.
+    self saveSettingsTo:file.
+!
+
 saveSettingsTo:file
-
     [
         UserPreferences current saveIn:file.
     ] on:StreamError do:[:ex|
-        self warn:('Cannot save settings into: %1\(%2)' bindWith:(file asString) with:ex description) withCRs.
+        self warn:(self resources 
+                stringWithCRs:'Cannot save settings into: %1\(%2)' 
+                with:(file asString) 
+                with:ex description).
     ]
 !
 
 saveSettingsWithoutAskingForFile
-
-    | file |
-    file := (Filename currentDirectory construct:'settings.stx') asAbsoluteFilename.
-    self saveSettingsTo:file.
+    self saveSettingsAsDefaultSettings.
 ! !
 
 !SettingsDialog class methodsFor:'menu specs'!
@@ -1369,7 +1375,7 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.77 2008-03-31 13:34:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.78 2008-05-08 14:07:13 cg Exp $'
 ! !
 
 SettingsDialog initialize!