Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.72 -r1.73
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	3 Nov 2017 15:11:20 -0000	1.72
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	6 Nov 2017 11:45:39 -0000	1.73
@@ -1155,7 +1155,7 @@
     }
 
     set version_name [get_object_name -object_id $folder_id]
-    db_string delete_folder {}
+    db_exec_plsql delete_folder {}
     
     if { !$no_notifications_p } {
         fs::do_notifications -folder_id $parent_id -filename $version_name -item_id $folder_id -action "delete_folder"