Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -N -r1.106.2.38 -r1.106.2.39
--- openacs-4/packages/xotcl-core/xotcl-core.info	23 Mar 2022 20:29:09 -0000	1.106.2.38
+++ openacs-4/packages/xotcl-core/xotcl-core.info	25 Mar 2022 10:08:35 -0000	1.106.2.39
@@ -10,7 +10,7 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="5.10.1d6" url="http://media.wu-wien.ac.at/download/xotcl-core-5.10.1d6.apm">
+    <version name="5.10.1d7" url="http://media.wu-wien.ac.at/download/xotcl-core-5.10.1d7.apm">
 	<owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
 	<summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
 	<release-date>2021-09-16</release-date>
@@ -42,7 +42,7 @@
 	<license>BSD-Style</license>
 	<maturity>2</maturity>
 
-	<provides url="xotcl-core" version="5.10.1d6"/>
+	<provides url="xotcl-core" version="5.10.1d7"/>
 	<requires url="acs-kernel" version="5.10.0"/>
 	<requires url="acs-templating" version="5.10.0"/>
 	<requires url="acs-api-browser" version="5.10.0"/>
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.48 -r1.93.2.49
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	5 Feb 2022 16:56:58 -0000	1.93.2.48
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	25 Mar 2022 10:08:35 -0000	1.93.2.49
@@ -133,8 +133,13 @@
         error "value '$value' of parameter $name must not be larger than $max"
       }
       return $value
+    }
+    :method type=cr_item_of_package {name value 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"
+      }
+    }
   }
-  }
 
   ::xotcl::Object proc setExitHandler {code} {::nsf::exithandler set $code}
   ::xotcl::Object instproc set_instance_vars_defaults {} {:configure}
@@ -153,6 +158,7 @@
     ::nx::Slot method type=html
     ::nx::Slot method type=nohtml
     ::nx::Slot method type=range
+    ::nx::Slot method type=cr_item_of_package
     ::nx::Object nsfproc ::nsf::debug::call
     ::nx::Object nsfproc ::nsf::debug::exit
   }