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 -r1.106.2.51 -r1.106.2.52
--- openacs-4/packages/xotcl-core/xotcl-core.info	13 Jul 2023 13:11:30 -0000	1.106.2.51
+++ openacs-4/packages/xotcl-core/xotcl-core.info	23 Nov 2023 11:12:48 -0000	1.106.2.52
@@ -10,7 +10,7 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="5.10.1b1" url="http://media.wu-wien.ac.at/download/xotcl-core-5.10.1b1.apm">
+    <version name="5.10.1b2" url="http://media.wu-wien.ac.at/download/xotcl-core-5.10.1b2.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>2023-03-07</release-date>
@@ -42,7 +42,7 @@
 	<license>BSD-Style</license>
 	<maturity>2</maturity>
 
-	<provides url="xotcl-core" version="5.10.1b1"/>
+	<provides url="xotcl-core" version="5.10.1b2"/>
 	<requires url="acs-kernel" version="5.10.1b1"/>
 	<requires url="acs-bootstrap-installer" version="5.10.1b1"/>        
         <requires url="acs-templating" version="5.10.1b1"/>        
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 -r1.93.2.63 -r1.93.2.64
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	24 Oct 2023 16:11:11 -0000	1.93.2.63
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	23 Nov 2023 11:12:48 -0000	1.93.2.64
@@ -129,6 +129,11 @@
       }
       return $value
     }
+    :method type=oneof {name value set} {
+      if {[ad_page_contract_filter_proc_oneof $name value $set] == 0} {
+        return -code error [lindex [ad_complaints_get_list] end]
+      }
+    }
     :method type=signed {name input} {
       #
       # Check, if a value is a signed value, signed by