--- a/Project.st	Wed Aug 04 09:58:10 1999 +0200
+++ b/Project.st	Wed Aug 04 16:10:22 1999 +0200
@@ -1767,23 +1767,23 @@
 
     d := (properties at:#directoryName) asFilename.
     d exists ifFalse:[
-	self error:'directory does not exist'.
-	^ self
+        self error:'directory does not exist' mayProceed:true.
+        ^ self
     ].
     f := d construct:'.project'.
     s := f writeStream.
     s isNil ifTrue:[^ self].
     properties associationsDo:[:aProp |
-	(aProp == #directoryName) ifFalse:[
-	    s nextChunkPut:('self at:' , aProp key storeString, 
-			       ' put:' , aProp value storeString).
-	    s cr
-	]
+        (aProp == #directoryName) ifFalse:[
+            s nextChunkPut:('self at:' , aProp key storeString, 
+                               ' put:' , aProp value storeString).
+            s cr
+        ]
     ].
     s close
 
     "((Project new directory:'../projects/Clock') readSpec
-	 directory:'../projects/xxx') saveSpec"
+         directory:'../projects/xxx') saveSpec"
 ! !
 
 !Project methodsFor:'views'!
@@ -1876,6 +1876,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.83 1999-06-24 17:05:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.84 1999-08-04 14:09:59 cg Exp $'
 ! !
 Project initialize!