Index: openacs-4/packages/file-storage/file-storage.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/file-storage.info,v
diff -u -N -r1.29.2.3 -r1.29.2.4
--- openacs-4/packages/file-storage/file-storage.info	5 May 2004 09:35:22 -0000	1.29.2.3
+++ openacs-4/packages/file-storage/file-storage.info	12 May 2004 15:14:17 -0000	1.29.2.4
@@ -25,7 +25,7 @@
             <callback type="after-upgrade"  proc="fs::install::upgrade"/>
         </callbacks>
         <parameters>
-            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="ArchiveCommand"  default="tar -czf {out_file} {in_file}" description="Program (and program options) to use for archiving file storage objects. Use the special tags {in_file} and {out_file} (including the curly braces) to denote the locations of the input and output files on the command line."/>
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="ArchiveCommand"  default="tar cf - {in_file} | gzip > {out_file}" description="Program (and program options) to use for archiving file storage objects. Use the special tags {in_file} and {out_file} (including the curly braces) to denote the locations of the input and output files on the command line."/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="ArchiveExtension"  default="tgz" description="The extension that the programmer should add to the output file. This depends on the value of ArchiveCommand"/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="GeneralCommentsP"  default="0" description="Allow comments to be attached to a file."/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="MaximumFileSize"  default="2000000" description="The maximum size, in bytes, of files that users are allowed to upload"/>
Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -N -r1.42.2.4 -r1.42.2.5
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	7 May 2004 02:51:11 -0000	1.42.2.4
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	12 May 2004 15:14:06 -0000	1.42.2.5
@@ -598,7 +598,7 @@
     return the archive command after replacing {in_file} and {out_file} with
     their respective values.
 } {
-    set cmd [parameter::get -parameter ArchiveCommand -default "cat `find {in_file} -type f` > {out_file}"]
+    set cmd [parameter::get -parameter ArchiveCommand -default "tar cf - {in_file} | gzip > {out_file}"]
 
     regsub -all {(\W)} $in_file {\\\1} in_file
     regsub -all {\\/} $in_file {/} in_file