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 -N -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: