Index: openacs-4/packages/file-storage/www/folder-zip-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-zip-add.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/file-storage/www/folder-zip-add.tcl	12 Jun 2015 08:45:46 -0000	1.6
+++ openacs-4/packages/file-storage/www/folder-zip-add.tcl	27 Jun 2015 21:41:49 -0000	1.7
@@ -118,7 +118,7 @@
         set upload_tmpfiles [list [template::util::file::get_property tmp_filename $upload_file]]
     }
     
-    if { [empty_string_p [lindex $upload_files 0]]} {
+    if { [lindex $upload_files 0] eq ""} {
         ad_return_complaint 1 "<li>You have to upload a file"
         ad_script_abort
     }
@@ -222,7 +222,7 @@
     if {([info exists return_url] && $return_url ne "")} {
 	ad_returnredirect $return_url
     } else {
-	ad_returnredirect "./?[export_vars -url {folder_id}]"
+	ad_returnredirect [export_vars -base ./ {folder_id}]
     }
     ad_script_abort