Index: openacs-4/packages/categories/lib/categorize.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/categorize.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/categories/lib/categorize.tcl	7 Aug 2017 23:48:05 -0000	1.3
+++ openacs-4/packages/categories/lib/categorize.tcl	7 Sep 2021 11:47:36 -0000	1.3.2.1
@@ -1,11 +1,10 @@
-if {![info exists object_id] || $object_id eq ""} {
-    ad_complain "You must specify an object to categorize"
+ad_include_contract {
+    Categorize
+} {
+    object_id:integer,notnull
+    {container_id:integer,notnull "[ad_conn subsite_id]"}
 }
 
-if {![info exists container_id] || $container_id eq ""} {
-    set container_id [ad_conn subsite_id]
-}
-
 set name [db_string title {select title from acs_objects where object_id = :object_id} -default $object_id]
 
 # Category mapping stuff