Index: openacs-4/packages/file-storage/www/move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move.tcl,v
diff -u -N -r1.12.2.4 -r1.12.2.5
--- openacs-4/packages/file-storage/www/move.tcl	28 Aug 2019 15:13:24 -0000	1.12.2.4
+++ openacs-4/packages/file-storage/www/move.tcl	27 Jan 2022 09:23:59 -0000	1.12.2.5
@@ -34,7 +34,7 @@
       select fs.object_id, fs.name, fs.type, fs.parent_id,
       acs_permission.permission_p(fs.object_id, :user_id, 'delete') as move_p
       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 move_p
 }] {
     if {$move_p} {