Index: openacs-4/packages/file-storage/www/folder-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-delete.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/file-storage/www/folder-delete.tcl	7 Aug 2017 23:48:11 -0000	1.13
+++ openacs-4/packages/file-storage/www/folder-delete.tcl	3 Nov 2017 15:11:20 -0000	1.14
@@ -74,12 +74,9 @@
 
 if { $confirmed_p == "t" && $blocked_p == "f" } {
     # they have confirmed that they want to delete the folder
+    fs::delete_folder \
+        -folder_id $folder_id
 
-    db_1row parent_id "
-    select parent_id from cr_items where item_id = :folder_id"
-
-    db_exec_plsql folder_delete ""
-
     ad_returnredirect "index?folder_id=$parent_id"
     ad_script_abort