Index: openacs-4/packages/categories/www/cadmin/category-link-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-add.tcl,v
diff -u -N -r1.7 -r1.7.2.1
--- openacs-4/packages/categories/www/cadmin/category-link-add.tcl	29 Jun 2018 17:27:18 -0000	1.7
+++ openacs-4/packages/categories/www/cadmin/category-link-add.tcl	15 Mar 2019 11:41:37 -0000	1.7.2.1
@@ -34,7 +34,11 @@
 
 template::multirow create trees tree_name tree_id link_add_url
 
-db_foreach get_trees_to_link "" {
+db_foreach get_trees_to_link {
+    select tree_id as link_tree_id
+    from category_trees
+    where acs_permission.permission_p(tree_id,:user_id,'category_tree_write') = 't'
+} {
     set tree_name [category_tree::get_name $link_tree_id $locale]
     template::multirow append trees $tree_name $link_tree_id \
 	[export_vars -no_empty -base category-link-add-2 { link_tree_id category_id tree_id locale object_id ctx_id}]