--- a/UserPreferences.st	Mon Mar 03 21:04:21 2003 +0100
+++ b/UserPreferences.st	Mon Mar 03 21:10:02 2003 +0100
@@ -256,14 +256,8 @@
 
     |s screen|
 
-    #nilFile.
-
     s := fileName asFilename writeStream.
-    s isNil ifTrue:[
-        FileStream openErrorSignal 
-            raiseRequestErrorString:('Cannot open ' , fileName , ' for writing').
-        ^ self
-    ].
+    s checkNilFileStream.
 
     screen := Screen current.
 
@@ -2454,5 +2448,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.102 2003-03-02 18:40:04 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.103 2003-03-03 20:10:02 stefan Exp $'
 ! !