--- a/Project.st	Mon Mar 03 21:10:02 2003 +0100
+++ b/Project.st	Mon Mar 03 21:12:01 2003 +0100
@@ -3748,8 +3748,6 @@
 saveSpec
     |f d s|
 
-    #nilFile.
-
     d := (properties at:#directoryName) asFilename.
     d exists ifFalse:[
         self error:'directory does not exist' mayProceed:true.
@@ -3757,7 +3755,7 @@
     ].
     f := d construct:'.project'.
     s := f writeStream.
-    s isNil ifTrue:[^ self].
+    s checkNilFileStream.
     properties associationsDo:[:aProp |
         (aProp == #directoryName) ifFalse:[
             s nextChunkPut:('self at:' , aProp key storeString, 
@@ -3962,7 +3960,7 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.182 2003-03-02 20:47:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.183 2003-03-03 20:12:01 stefan Exp $'
 ! !
 
 Project initialize!