Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -N -r1.93.2.49 -r1.93.2.50
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	25 Mar 2022 10:08:35 -0000	1.93.2.49
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	25 Mar 2022 18:46:19 -0000	1.93.2.50
@@ -134,7 +134,7 @@
       }
       return $value
     }
-    :method type=cr_item_of_package {name value package_id:int32} {
+    :method type=cr_item_of_package {name value:int32 package_id:int32} {
       if {![::xo::db::CrClass id_belongs_to_package -item_id $value -package_id $package_id]} {
         error "value '$value' of is not a valid content repository item of the required package"
       }