--- a/MCStxMczWriter.st	Mon Mar 25 22:53:56 2013 +0100
+++ b/MCStxMczWriter.st	Thu Mar 28 00:05:48 2013 +0100
@@ -29,9 +29,14 @@
 !MCStxMczWriter methodsFor:'visiting'!
 
 writeBuildSupportFiles:aVersion for:aProjectDefinition
-    aProjectDefinition forEachFileNameAndGeneratedContentsDo:[:file :contents |
-        self addString: contents at: 'snapshot.stx/', file.
-    ].
+    Error handle:[:ex |
+        Dialog information:('Cannot write build support files because:\\',ex description,'\\Writing source files only.') withCRs.
+        ^ self
+    ] do:[
+        aProjectDefinition forEachFileNameAndGeneratedContentsDo:[:file :contents |
+            self addString: contents at: 'snapshot.stx/', file.
+        ].
+    ]
 !
 
 writeIndividualSourceFiles:aVersion for:aProjectDefinition
@@ -58,8 +63,12 @@
 
     |dir rsrcDir|
 
-    dir := aProjectDefinition projectDirectory asFilename.
-    (rsrcDir := dir / 'resources') exists ifTrue:[
+    dir := aProjectDefinition projectDirectory.
+    dir isNil ifTrue:[
+        "/ no directory - no resource files
+        ^  self.
+    ].
+    (rsrcDir := dir asFilename / 'resources') exists ifTrue:[
         rsrcDir recursiveDirectoryContentsDo:[:relFn |
             (rsrcDir construct:relFn) isDirectory ifFalse:[
                 self addString: ((rsrcDir construct:relFn) contentsOfEntireFile) at: 'snapshot.stx/resources/', relFn.
@@ -105,10 +114,10 @@
 !MCStxMczWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStxMczWriter.st,v 1.3 2013-03-21 22:46:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStxMczWriter.st,v 1.4 2013-03-27 23:05:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStxMczWriter.st,v 1.3 2013-03-21 22:46:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStxMczWriter.st,v 1.4 2013-03-27 23:05:48 cg Exp $'
 ! !