Index: openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/01-database-procs.tcl,v
diff -u -r1.1.2.38 -r1.1.2.39
--- openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	20 Jul 2022 11:45:57 -0000	1.1.2.38
+++ openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	29 Jul 2022 17:27:37 -0000	1.1.2.39
@@ -1622,7 +1622,7 @@
         if { ![info exists column_set] } {
             if { [info exists column_array] } {
                 unset -nocomplain array_val
-                array set array_val [lmap a $columns v $tuple {list $a $v}]
+                array set array_val [concat {*}[lmap a $columns v $tuple {list $a $v}]]
             } else {
                 foreach a $columns v $tuple { uplevel [list set $a $v] }
             }