Index: openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl 15 May 2002 04:19:00 -0000 1.4 +++ openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl 17 May 2003 10:04:18 -0000 1.5 @@ -114,7 +114,6 @@ for {set i 0} {$i < $n_fields} {incr i} { set varname [string tolower [lindex $headers $i]] set varvalue [lindex $one_line $i] - set row_array($varname) $varvalue }