Index: openacs-4/packages/categories/www/cadmin/category-link-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-delete-2.tcl,v
diff -u -N -r1.9 -r1.9.2.1
--- openacs-4/packages/categories/www/cadmin/category-link-delete-2.tcl	29 Jun 2018 17:27:18 -0000	1.9
+++ openacs-4/packages/categories/www/cadmin/category-link-delete-2.tcl	15 Mar 2019 13:26:08 -0000	1.9.2.1
@@ -17,7 +17,16 @@
 permission::require_permission -object_id $tree_id -privilege category_tree_write
 
 db_transaction {
-    foreach link_id [db_list check_category_link_permissions ""] {
+    foreach link_id [db_list check_category_link_permissions [subst {
+        select l.link_id
+        from category_links l, categories c
+        where l.link_id in ([join $link_id ,])
+        and acs_permission.permission_p(c.tree_id,:user_id,'category_tree_write') = 't'
+        and ((l.from_category_id = :category_id
+              and l.to_category_id = c.category_id)
+             or (l.from_category_id = c.category_id
+                 and l.to_category_id = :category_id))
+    }]] {
 	category_link::delete $link_id
     }
 } on_error {