Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.147.2.34 -r1.147.2.35
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	30 Jan 2024 17:17:09 -0000	1.147.2.34
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	14 Feb 2024 12:54:31 -0000	1.147.2.35
@@ -290,8 +290,10 @@
       # predates form-fields and follows ad_form conventions and uses
       # upvar, etc.
       #
-      set nls_language [$data form_parameter nls_language:token [$data form_parameter _nls_language]]
-      if {$nls_language eq ""} {
+      set nls_language [$data form_parameter \
+                            nls_language:token \
+                            [$data form_parameter _nls_language:token]]
+      if {$nls_language eq "" || [string length $nls_language] > 5} {
         set nls_language en_US
       }
       set name [$data build_name -nls_language $nls_language]