Index: openacs-4/packages/acs-lang/tcl/locale-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/locale-procs.tcl,v diff -u -r1.39.2.5 -r1.39.2.6 --- openacs-4/packages/acs-lang/tcl/locale-procs.tcl 29 May 2016 11:25:23 -0000 1.39.2.5 +++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl 18 Aug 2016 04:34:50 -0000 1.39.2.6 @@ -620,7 +620,7 @@ ad_proc -private lang::conn::valid_locale_p {locale} { Check, of the provided locale is syntactically correct } { - return [regexp {^[a-zA-Z]+(_[a-zA-Z]+)?$} $locale] + return [regexp {^[a-zA-Z]+(_[a-zA-Z0-9]+)?$} $locale] } ad_proc -private lang::conn::get_accept_language_header {} {