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.42 -r1.43
--- openacs-4/packages/acs-lang/tcl/locale-procs.tcl	7 Apr 2018 19:48:03 -0000	1.42
+++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl	25 Apr 2018 19:23:25 -0000	1.43
@@ -631,7 +631,7 @@
 
     # Split by comma, and get rid of any ;q=0.5 parts
     # acclang is something like 'da,en-us;q=0.8,es-ni;q=0.5,de;q=0.3'
-    set acclangv [list]
+    set acclangv {}
     foreach elm [split $acclang ","] {
         # Get rid of trailing ;q=0.5 part and trim spaces
         set elm [string trimleft [lindex [split $elm ";"] 0] " "]