Index: openacs-4/packages/file-storage/www/copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/copy.tcl,v
diff -u -r1.11.2.6 -r1.11.2.7
--- openacs-4/packages/file-storage/www/copy.tcl	21 Jul 2020 14:06:40 -0000	1.11.2.6
+++ openacs-4/packages/file-storage/www/copy.tcl	27 Jan 2022 09:23:59 -0000	1.11.2.7
@@ -31,7 +31,7 @@
     select fs.object_id, fs.name, fs.title, fs.parent_id,
            acs_permission.permission_p(fs.object_id, :user_id, 'read') as copy_p, fs.type
       from fs_objects fs
-     where fs.object_id in ([template::util::tcl_to_sql_list $object_id])
+     where fs.object_id in ([ns_dbquotelist $object_id])
      order by copy_p
 }] {
     if {$copy_p} {