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.9.2.5 -r1.9.2.6
--- openacs-4/packages/file-storage/www/download-zip.tcl	18 Jun 2021 14:37:28 -0000	1.9.2.5
+++ openacs-4/packages/file-storage/www/download-zip.tcl	18 Jun 2021 14:46:15 -0000	1.9.2.6
@@ -42,21 +42,16 @@
     set file [fs::publish_object_to_file_system -object_id $fs_object_id -path $in_path -user_id $user_id]
 }
 
-# create a temp dir to put the archive in
-set out_path [ad_tmpnam]
-file mkdir $out_path
+set out_file [ad_tmpnam]
 
-set out_file [ad_file join ${out_path} ${download_name}]
-
 # create the archive
 ad_try {
     util::zip -source $in_path -destination $out_file
 } on error {errorMsg} {
     # some day we'll do something useful here
     file delete -force -- $in_path
-    file delete -force -- $out_path
+    file delete -- $out_file
     error $errorMsg
-
 }
 
 # return the archive to the connection.
@@ -67,7 +62,7 @@
 
 # clean everything up
 file delete -force -- $in_path
-file delete -force -- $out_path
+file delete -- $out_file
 
 # Local variables:
 #    mode: tcl