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 -r1.8 -r1.8.2.1 --- openacs-4/packages/acs-templating/tcl/util-procs.tcl 1 Sep 2002 19:09:28 -0000 1.8 +++ openacs-4/packages/acs-templating/tcl/util-procs.tcl 14 Jan 2003 00:42:02 -0000 1.8.2.1 @@ -361,7 +361,7 @@ for { set i 1 } { $i <= $rowcount } { incr i } { - upvar $name:$rownum row + upvar $name:$i row lappend rows [array get row] }