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.1 -r1.90.2.2 --- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 15 Mar 2019 09:58:23 -0000 1.90.2.1 +++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 2 Apr 2019 08:24:24 -0000 1.90.2.2 @@ -455,7 +455,7 @@ set user_id [acs_magic_object the_public] } - set list_of_ns_sets [db_list_of_ns_sets select_folder_contents { + set list_of_ns_sets [db_list_of_ns_sets select_folder_contents [subst { select fs_objects.object_id, fs_objects.name, fs_objects.title, @@ -476,7 +476,7 @@ where fs_objects.parent_id = :folder_id and acs_permission.permission_p(fs_objects.object_id, :user_id, 'read') order by fs_objects.sort_key, fs_objects.name - }] + }]] foreach set $list_of_ns_sets { # in plain Tcl: