Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v
diff -u -N -r1.35 -r1.36
--- openacs-4/packages/acs-templating/tcl/util-procs.tcl	1 Feb 2018 21:26:36 -0000	1.35
+++ openacs-4/packages/acs-templating/tcl/util-procs.tcl	23 Apr 2018 21:32:46 -0000	1.36
@@ -321,10 +321,7 @@
     upvar $array_ref array
 
     foreach pair $lists {
-
-        set key [lindex $pair 0]
-        set value [lindex $pair 1]
-
+        lassign $pair key value
         set array($key) $value
     }
 }