# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 842916627 -7200
# Node ID 3ae721af82c8e6281979287be243cda4d8fa24ea
# Parent  0cc89097fd5046a73c3f6a0602a72ef4ae9d796c
checkin from browser

diff -r 0cc89097fd50 -r 3ae721af82c8 STXInstaller.st
--- a/STXInstaller.st	Tue Sep 17 00:05:40 1996 +0200
+++ b/STXInstaller.st	Tue Sep 17 01:30:27 1996 +0200
@@ -229,7 +229,8 @@
             actionTextHolder value:nil.
             actionTextHolder value:msg.
 
-            cmd := 'cp -r ../../' , fileName , ' ' , destDir.
+"/            cmd := 'cp -r ../../' , fileName , ' ' , destDir.
+            cmd := '(cd ../.. ; tar cf - ' , fileName , ') | (cd ' , destDir , ' ; tar xf -)'.
             commandTraceView showCR:cmd , ' ...'.
             cmd := 'sh -c "echo ; ' , cmd , ' 2>&1"' .