Index: openacs-4/packages/categories/lib/tree-code.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/tree-code.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/categories/lib/tree-code.tcl	7 Aug 2017 23:48:05 -0000	1.3
+++ openacs-4/packages/categories/lib/tree-code.tcl	3 Sep 2024 15:37:36 -0000	1.4
@@ -1,3 +1,10 @@
+ad_include_contract {
+    This include produces a Tcl code snippet that serializes a
+    category tree for import.
+} {
+    tree_id:object_type(category_tree)
+}
+
 set default_locale [lang::system::site_wide_locale]
 
 array set tree [category_tree::get_data $tree_id $default_locale]