Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs.tcl,v
diff -u -r1.95 -r1.96
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	4 Apr 2018 08:11:26 -0000	1.95
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	6 Apr 2018 16:31:36 -0000	1.96
@@ -1471,7 +1471,7 @@
                     for { set i 0 } { $i < [ns_set size $selection] } { incr i } {
                         lappend local_columns [ns_set key $selection $i]
                     }
-                    set local_columns [concat $local_columns $extend]
+                    lappend local_columns {*}$extend
                     if { !$append_p || ![info exists columns] } {
                         # store the list of columns in the var_name:columns variable
                         set columns $local_columns