Index: openacs-4/packages/categories/lib/tree-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/tree-form.tcl,v
diff -u -N -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/categories/lib/tree-form.tcl	1 Mar 2019 10:49:28 -0000	1.5.2.1
+++ openacs-4/packages/categories/lib/tree-form.tcl	8 May 2019 15:10:14 -0000	1.5.2.2
@@ -1,9 +1,16 @@
-if {![info exists ctx_id]} {
-  set package_id [ad_conn package_id]
-} else {
-  set package_id $ctx_id
+ad_include_contract {
+    Reusable form UI to create a new category tree. When 'object_id'
+    is specified, it will also map the new tree to corresponding
+    acs_object.
+} {
+    tree_id:naturalnum,optional
+    {locale ""}
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 }
 
+set package_id [expr {[info exists ctx_id] ? $ctx_id : [ad_conn package_id]}]
+
 set languages [lang::system::get_locale_options]
 
 ad_form -name tree_form \
Index: openacs-4/packages/categories/www/cadmin/tree-form.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-form.adp,v
diff -u -N -r1.7 -r1.7.2.1
--- openacs-4/packages/categories/www/cadmin/tree-form.adp	7 Aug 2017 23:48:05 -0000	1.7
+++ openacs-4/packages/categories/www/cadmin/tree-form.adp	8 May 2019 15:10:14 -0000	1.7.2.1
@@ -4,4 +4,4 @@
 <property name="change_locale">f</property>
 <property name="focus">tree_form.tree_name</property>
 
-<include src="/packages/categories/lib/tree-form" &="ctx_id" &="tree_id" &="locale">
+<include src="/packages/categories/lib/tree-form" &="ctx_id" &="object_id" &="tree_id" &="locale">