Index: openacs-4/packages/acs-templating/tcl/query-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/query-procs.tcl,v
diff -u -r1.53 -r1.54
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	8 Oct 2024 14:20:19 -0000	1.53
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	8 Oct 2024 14:26:14 -0000	1.54
@@ -642,18 +642,15 @@
 
         extend {
             upvar $multirow_level_up $name:columns columns
-            foreach column_name $args {
-                lappend columns $column_name
-            }
+            lappend columns {*}$args
         }
 
         pop {
             upvar $multirow_level_up $name:rowcount rowcount $name:columns columns
             set r_list [list]
             if {$rowcount > 0} {
                 upvar $multirow_level_up $name:$rowcount row
-                for { set i 0 } { $i < [llength $columns] } { incr i } {
-                    set key [lindex $columns $i]
+                foreach key $columns {
                     if {[info exists row($key)]} {
                         set value $row($key)
                         lappend r_list $key $value
@@ -670,10 +667,10 @@
             incr rowcount
             upvar $multirow_level_up $name:$rowcount row
 
-            for { set i 0 } { $i < [llength $columns] } { incr i } {
-
-                set key [lindex $columns $i]
-                set value [lindex $args $i];    #(!) missing columns are silently empty
+            #
+            # Note: missing columns are silently empty
+            #
+            foreach key $columns value $args {
                 set row($key) $value
             }
             set row(rownum) $rowcount