Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v
diff -u -r1.31.2.2 -r1.31.2.3
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	1 Mar 2019 10:27:05 -0000	1.31.2.2
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	15 Mar 2019 10:39:02 -0000	1.31.2.3
@@ -352,7 +352,17 @@
     } {
         set user_id [ad_conn user_id]
 
-        return [db_list_of_lists category_tree_usage ""]
+        return [db_list_of_lists category_tree_usage {
+	    select t.pretty_plural, n.object_id, n.title, p.package_id,
+	           p.instance_name,
+	           acs_permission.permission_p(n.object_id, :user_id, 'read') as read_p
+	    from category_tree_map m, acs_objects n,
+	         apm_packages p, apm_package_types t
+	    where m.tree_id = :tree_id
+	    and n.object_id = m.object_id
+	    and p.package_id = n.package_id
+	    and t.package_key = p.package_key
+        }]
     }
 
     ad_proc -public reset_cache { } {