--- a/STXInstaller.st	Mon May 31 16:47:34 1999 +0200
+++ b/STXInstaller.st	Mon May 31 17:35:59 1999 +0200
@@ -584,12 +584,17 @@
             actionTextHolder value:msg.
 
             ((fileName includes:$*) not
-            and:[('../../' , fileName) asFilename exists not]) ifTrue:[
+            and:[(topDirPrefix , fileName) asFilename exists not]) ifTrue:[
                 (self listOfOptionalPackages includes:fileName) ifFalse:[
                     commandTraceView showCR:('cannot copy ' , fileName , ' - not included in distribution').
                     commandTraceView endEntry.
                 ]
             ] ifFalse:[
+                destDir asFilename exists ifFalse:[
+                    commandTraceView showCR:(resources string:'creating %1 ...' with:destDir asFilename pathName).
+                    commandTraceView endEntry.
+                    OperatingSystem recursiveCreateDirectory:destDir asFilename pathName
+                ].
                 self recursiveCopy:(topDirPrefix , fileName) to:destDir.
             ]
         ].
@@ -604,7 +609,7 @@
     "
 
     "Created: / 17.7.1996 / 15:16:20 / cg"
-    "Modified: / 31.5.1999 / 13:05:23 / cg"
+    "Modified: / 31.5.1999 / 17:29:19 / cg"
 !
 
 createDirectories