STXInstaller.st
changeset 1779 f3237e4844d9
parent 1707 ad52b5abf849
--- 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:[
                 (#(