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.7 -r1.39.2.8
--- openacs-4/packages/acs-lang/tcl/locale-procs.tcl	18 Aug 2016 04:42:21 -0000	1.39.2.7
+++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl	18 Aug 2016 05:02:31 -0000	1.39.2.8
@@ -636,7 +636,7 @@
         # Get rid of trailing ;q=0.5 part and trim spaces
         set elm [string trimleft [lindex [split $elm ";"] 0] " "]
         # Ignore the default catchall setting "*"
-        if {$elem eq "*"} {
+        if {$elm eq "*"} {
             continue
         }
         # elm is now either like 'da' or 'en-us'