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 -r1.17 -r1.17.2.1
--- openacs-4/packages/file-storage/www/folder-delete.tcl	22 Jun 2018 10:40:28 -0000	1.17
+++ openacs-4/packages/file-storage/www/folder-delete.tcl	16 Apr 2019 19:59:20 -0000	1.17.2.1
@@ -27,9 +27,10 @@
     blocked_p:onevalue
     context:onevalue
 }
+#
+# Check for delete permission on the folder.
+#
 
-# check for delete permission on the folder
-
 permission::require_permission -object_id $folder_id -privilege delete
 
 # Check if there are child items they don't have permission to delete
@@ -56,7 +57,10 @@
 	{delete_message:text(inform) {label ""} {value $delete_message}}
     } -on_request {
     } -on_submit {
-        # they have confirmed that they want to delete the folder
+        #
+        # The user has confirmed to delete the folder.
+        #
+        set parent_id [fs::get_parent -item_id $folder_id]
         fs::delete_folder -folder_id $folder_id
 
         ad_returnredirect "index?folder_id=$parent_id"