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.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]]