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.13 -r1.31.2.14
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	3 May 2020 17:41:51 -0000	1.31.2.13
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	16 Sep 2022 13:56:13 -0000	1.31.2.14
@@ -581,7 +581,7 @@
         return [lindex [get_translation $tree_id $locale] 0]
     }
 
-    ad_proc pageurl { object_id } {
+    ad_proc -private pageurl { object_id } {
         Returns the page that displays a category tree
         To be used by the AcsObject.PageUrl service contract.