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.9 -r1.10
--- openacs-4/packages/file-storage/www/folder-zip-add.tcl	7 Apr 2018 19:13:11 -0000	1.9
+++ openacs-4/packages/file-storage/www/folder-zip-add.tcl	13 Sep 2018 09:53:03 -0000	1.10
@@ -94,7 +94,10 @@
     if {$title eq ""} {
 	set title [file rootname [list [template::util::file::get_property filename $upload_file]]]
     }
-    set folder_id [content::folder::new -name $title -parent_id $folder_id -label $title]
+    set folder_id [content::item::get_id_by_name -name $title -parent_id $folder_id]
+    if {$folder_id eq ""} {
+        set folder_id [content::folder::new -name $title -parent_id $folder_id -label $title]
+    }
     
     set unzip_binary [string trim [parameter::get -parameter UnzipBinary]]