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.7.2.2 -r1.7.2.3
--- openacs-4/packages/file-storage/www/download-zip.tcl	20 May 2016 20:37:03 -0000	1.7.2.2
+++ openacs-4/packages/file-storage/www/download-zip.tcl	27 Mar 2017 10:44:58 -0000	1.7.2.3
@@ -28,7 +28,7 @@
     # supported object_types.
     if {![acs_object::object_p -id $fs_object_id]} {
 	ns_returnnotfound
-	file delete -force $in_path
+	file delete -force -- $in_path
 	ad_script_abort 
     }
     set file [fs::publish_object_to_file_system -object_id $fs_object_id -path $in_path -user_id $user_id]
@@ -45,8 +45,8 @@
     util::zip -source $in_path -destination $out_file
 } {
     # some day we'll do something useful here
-    file delete -force $in_path
-    file delete -force $out_path
+    file delete -force -- $in_path
+    file delete -force -- $out_path
     error $errmsg
 }
 
@@ -57,8 +57,8 @@
 ns_returnfile 200 application/octet-stream $out_file
 
 # clean everything up
-file delete -force $in_path
-file delete -force $out_path
+file delete -force -- $in_path
+file delete -force -- $out_path
 
 # Local variables:
 #    mode: tcl