Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.180.2.115 -r1.180.2.116
--- openacs-4/packages/xowiki/xowiki.info	18 Oct 2023 09:35:27 -0000	1.180.2.115
+++ openacs-4/packages/xowiki/xowiki.info	23 Nov 2023 11:14:25 -0000	1.180.2.116
@@ -10,7 +10,7 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xowiki</auto-mount>
 
-    <version name="5.10.1b3" url="http://openacs.org/repository/download/apm/xowiki-5.10.1b3.apm">
+    <version name="5.10.1b4" url="http://openacs.org/repository/download/apm/xowiki-5.10.1b4.apm">
 	<owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
 	<summary>A xotcl-based enterprise wiki system with multiple object types</summary>
 	<release-date>2023-07-11</release-date>
@@ -55,8 +55,8 @@
 	<license>BSD-Style</license>
 	<maturity>2</maturity>
 
-	<provides url="xowiki" version="5.10.1b3"/>
-	<requires url="xotcl-core" version="5.10.1b1"/>
+	<provides url="xowiki" version="5.10.1b4"/>
+	<requires url="xotcl-core" version="5.10.1b2"/>
 	<requires url="acs-datetime" version="5.9.1"/>
 	<requires url="acs-kernel" version="5.10.1b1"/>
 	<requires url="acs-tcl" version="5.10.1b1"/>
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.144 -r1.368.2.145
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	13 Sep 2023 22:26:37 -0000	1.368.2.144
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	23 Nov 2023 11:14:25 -0000	1.368.2.145
@@ -259,7 +259,13 @@
     # Collect some default values from query parameters.
     #
     set default_variables [list]
-    foreach param {name title page_order:graph last_page_id:int32 nls_language:wordchar} {
+    foreach param [list \
+                       name \
+                       title \
+                       page_order:graph \
+                       last_page_id:int32 \
+                       "nls_language:oneof,set=[join [lang::system::get_locales] |]" \
+                      ] {
       regexp {^([^:]+):?} $param . key
       if {[:exists_query_parameter $key]} {
         lappend default_variables $key [:query_parameter $param]
@@ -850,7 +856,13 @@
 
   Page instproc edit_set_default_values {} {
     # set some default values if they are provided
-    foreach param {name title page_order:graph last_page_id:int32 nls_language:wordchar} {
+    foreach param [list \
+                       name \
+                       title \
+                       page_order:graph \
+                       last_page_id:int32 \
+                       "nls_language:oneof,set=[join [lang::system::get_locales] |]" \
+                      ] {
       regexp {^([^:]+):?} $param . key
       if {[::${:package_id} exists_query_parameter $key]} {
         #:log "setting [self] set $key [::${:package_id} query_parameter $key]"