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.90.2.6 -r1.90.2.7
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	5 Oct 2019 13:43:47 -0000	1.90.2.6
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	16 Nov 2019 14:40:40 -0000	1.90.2.7
@@ -77,7 +77,7 @@
 # Permission procs
 #
 
-ad_proc children_have_permission_p {
+ad_proc -private fs_children_have_permission_p {
     {-user_id ""}
     item_id
     privilege
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.2.3 -r1.17.2.4
--- openacs-4/packages/file-storage/www/folder-delete.tcl	17 Apr 2019 09:37:58 -0000	1.17.2.3
+++ openacs-4/packages/file-storage/www/folder-delete.tcl	16 Nov 2019 14:40:40 -0000	1.17.2.4
@@ -36,7 +36,7 @@
 # Check if there are child items they don't have permission to delete
 # (Irrelevant at this point because they can't delete folders with
 # contents at all.)
-set blocked_p [expr {![children_have_permission_p $folder_id delete]}]
+set blocked_p [expr {![fs_children_have_permission_p $folder_id delete]}]
 
 # Message lookup uses variables folder_name and child_count
 set folder_name [lang::util::localize [fs_get_folder_name $folder_id]]