Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v diff -u -N -r1.63.2.2 -r1.63.2.3 --- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl 25 Feb 2007 20:19:20 -0000 1.63.2.2 +++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl 12 May 2007 00:39:44 -0000 1.63.2.3 @@ -2027,8 +2027,8 @@ } } elseif { ![info exists column_set] } { for { set i 0 } { $i < [ns_set size $selection] } { incr i } { - upvar 1 [ns_set key $selection $i] value - set value [ns_set value $selection $i] + upvar 1 [ns_set key $selection $i] return_value + set return_value [ns_set value $selection $i] } }