--- a/UserPreferences.st	Fri Feb 06 16:04:49 2015 +0100
+++ b/UserPreferences.st	Fri Feb 06 22:01:43 2015 +0100
@@ -498,20 +498,22 @@
 
 !UserPreferences class methodsFor:'saving'!
 
-saveSettings:userPrefs in:fileName
+saveSettings:userPrefs in:fileNameOrString
     "save settings to a settings-file."
 
     "a temporary kludge for old classVariable-based settings
      - all of those MUST go into the user-preferences dictionary eventually"
 
-    |screen|
+    |screen fileName dir|
+
+    fileName := fileNameOrString asFilename.
 
     screen := Screen current.
 
-    fileName directory exists ifFalse:[
-        fileName directory recursiveMakeDirectory.
+    (dir := fileName directory) exists ifFalse:[
+        dir recursiveMakeDirectory.
     ].
-    fileName asFilename writingFileDo:[:s|
+    fileName writingFileDo:[:s|
         s nextPutLine:'"/ ST/X saved settings';
           nextPutLine:'"/ DO NOT MODIFY MANUALLY';
           nextPutLine:'"/ (modifications would be lost with next save-settings)';
@@ -821,6 +823,8 @@
 ! !
 
 
+
+
 !UserPreferences methodsFor:'accessing-changes & history'!
 
 changeFileName
@@ -5212,11 +5216,11 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.397 2015-02-05 12:50:19 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.398 2015-02-06 21:01:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.397 2015-02-05 12:50:19 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.398 2015-02-06 21:01:43 cg Exp $'
 !
 
 version_SVN