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 -r1.83 -r1.84
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	11 Apr 2013 21:47:24 -0000	1.83
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	12 Apr 2013 14:16:36 -0000	1.84
@@ -1487,7 +1487,7 @@
                     }
 
                     # Pull values from the query into next_row
-		    unset -nocomplain this_row 
+		    unset -nocomplain next_row 
                     if { $more_rows_p } {
                         for { set i 0 } { $i < [ns_set size $selection] } { incr i } {
                             set next_row([ns_set key $selection $i]) [ns_set value $selection $i]