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.7.2.1 -r1.7.2.2
--- openacs-4/packages/file-storage/www/folder-zip-add.tcl	12 Sep 2015 11:06:19 -0000	1.7.2.1
+++ openacs-4/packages/file-storage/www/folder-zip-add.tcl	2 Jan 2016 20:13:30 -0000	1.7.2.2
@@ -20,8 +20,11 @@
     lock_title_p:onevalue
 } -validate {
     file_id_or_folder_id {
-        if {([info exists file_id] && $file_id ne "") && (![info exists folder_id] || $folder_id eq "")} {
-            set folder_id [db_string get_folder_id "select parent_id as folder_id from cr_items where item_id=:file_id" -default ""]
+        if {[info exists file_id] && $file_id ne ""
+            && (![info exists folder_id] || $folder_id eq "")} {
+            set folder_id [db_string get_folder_id {
+                select parent_id as folder_id from cr_items where item_id=:file_id
+            } -default ""]
         }
         if {![fs_folder_p $folder_id]} {
             ad_complain "The specified parent folder is not valid."