Index: openacs-4/packages/categories/www/cadmin/category-link-add-4.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-add-4.tcl,v
diff -u -N -r1.8.2.2 -r1.8.2.3
--- openacs-4/packages/categories/www/cadmin/category-link-add-4.tcl	20 Dec 2019 21:18:10 -0000	1.8.2.2
+++ openacs-4/packages/categories/www/cadmin/category-link-add-4.tcl	3 May 2020 17:39:48 -0000	1.8.2.3
@@ -20,7 +20,7 @@
     foreach forward_category_id [db_list check_link_forward_permissions [subst {
         select c.category_id as link_category_id
         from categories c
-        where c.category_id in ([join $link_category_id ,])
+        where c.category_id in ([ns_dbquotelist $link_category_id])
         and acs_permission.permission_p(c.tree_id,:user_id,'category_tree_write') = 't'
         and c.category_id <> :category_id
         and not exists (select 1
@@ -34,7 +34,7 @@
     foreach backward_category_id [db_list check_link_backward_permissions [subst {
         select c.category_id as link_category_id
         from categories c
-        where c.category_id in ([join $link_category_id ,])
+        where c.category_id in ([ns_dbquotelist $link_category_id])
         and acs_permission.permission_p(c.tree_id,:user_id,'category_tree_write') = 't'
         and c.category_id <> :category_id
         and not exists (select 1