# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1004115095 -7200
# Node ID 3f0c8ccd0c33df0e42c36d945866523567e27c3c
# Parent  8becf2e11b697f10b2d332337f3a5cbe523cf421
checkin from browser

diff -r 8becf2e11b69 -r 3f0c8ccd0c33 STXInstaller.st
--- a/STXInstaller.st	Fri Oct 26 18:32:55 2001 +0200
+++ b/STXInstaller.st	Fri Oct 26 18:51:35 2001 +0200
@@ -444,6 +444,11 @@
         fullDir asFilename baseName ~= 'stx' ifTrue:[
             fullDir := fullDir asFilename constructString:'stx'.
         ].
+        fullDir asFilename recursiveMakeDirectory.
+        fullDir asFilename exists ifFalse:[
+            self warn:'Oops - failed to create directory: ' , fullDir.
+            ^ false
+        ].
 
         msg at:4 put:('    all from CD' asText allBold).
         msg at:6 put:'    ' , (fullDir asText allBold).