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 -N -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 {} {