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.64 -r1.93.2.65
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	23 Nov 2023 11:12:48 -0000	1.93.2.64
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	24 Nov 2023 12:56:48 -0000	1.93.2.65
@@ -129,8 +129,8 @@
       }
       return $value
     }
-    :method type=oneof {name value set} {
-      if {[ad_page_contract_filter_proc_oneof $name value $set] == 0} {
+    :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]
       }
     }