# HG changeset patch
# User Michael Beyl <mb@exept.de>
# Date 1074085068 -3600
# Node ID f3237e4844d9461c8de439fd8560cfd039643a59
# Parent  32befdc6127092b2fe28e6eda760b897ee44b3a8
fix recursive copy

diff -r 32befdc61270 -r f3237e4844d9 STXInstaller.st
--- a/STXInstaller.st	Tue Jan 13 17:30:14 2004 +0100
+++ b/STXInstaller.st	Wed Jan 14 13:57:48 2004 +0100
@@ -912,6 +912,10 @@
     srcF := src asFilename.
     dstF := dst asFilename.
 
+    srcF directory exists ifFalse:[
+        ^ self
+    ].
+
     srcBaseName := srcF baseName.
     (srcBaseName startsWith:'.#') ifTrue:[^ self].
 
@@ -933,6 +937,7 @@
             ].
             commandTraceView endEntry.
         ].
+
         (srcF directory directoryContents ? #()) do:[:fileName |
             (srcBaseName match:fileName) ifTrue:[
                 (#(