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.65 -r1.93.2.66
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	24 Nov 2023 12:56:48 -0000	1.93.2.65
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	24 Nov 2023 16:51:02 -0000	1.93.2.66
@@ -130,8 +130,8 @@
       return $value
     }
     :method type=oneof {name value arg} {
-      if {[ad_page_contract_filter_proc_oneof $name value [split $arg |]] == 0} {
-        return -code error [lindex [ad_complaints_get_list] end]
+      if {$value ni [split $arg |]} {
+        error "value '$value' of parameter $name is invalid"
       }
     }
     :method type=signed {name input} {