Index: openacs-4/packages/file-storage/www/download-zip.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/download-zip.tcl,v
diff -u -r1.6.6.3 -r1.6.6.4
--- openacs-4/packages/file-storage/www/download-zip.tcl	5 Aug 2014 17:46:33 -0000	1.6.6.3
+++ openacs-4/packages/file-storage/www/download-zip.tcl	28 Sep 2014 15:55:41 -0000	1.6.6.4
@@ -40,12 +40,9 @@
 
 set out_file [file join ${out_path} ${download_name}]
 
-# get the archive command
-set cmd "zip -r \"$out_file\" ."
-
 # create the archive
 with_catch errmsg {
-    exec bash -c "cd $in_path; $cmd; cd -"
+    util::zip_file -source $in_path -destination $out_file
 } {
     # some day we'll do something useful here
     file delete -force $in_path