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]