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.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]
       }
     }
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.368.2.145 -r1.368.2.146
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	23 Nov 2023 11:14:25 -0000	1.368.2.145
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	24 Nov 2023 12:56:48 -0000	1.368.2.146
@@ -264,7 +264,7 @@
                        title \
                        page_order:graph \
                        last_page_id:int32 \
-                       "nls_language:oneof,set=[join [lang::system::get_locales] |]" \
+                       "nls_language:oneof,arg=[join [lang::system::get_locales] |]" \
                       ] {
       regexp {^([^:]+):?} $param . key
       if {[:exists_query_parameter $key]} {
@@ -861,7 +861,7 @@
                        title \
                        page_order:graph \
                        last_page_id:int32 \
-                       "nls_language:oneof,set=[join [lang::system::get_locales] |]" \
+                       "nls_language:oneof,arg=[join [lang::system::get_locales] |]" \
                       ] {
       regexp {^([^:]+):?} $param . key
       if {[::${:package_id} exists_query_parameter $key]} {