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 -N -r1.23 -r1.24
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	18 Feb 2004 21:05:33 -0000	1.23
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	27 Feb 2004 15:49:11 -0000	1.24
@@ -681,6 +681,15 @@
       set columns $args
     }
 
+    unset {
+      upvar $multirow_level_up $name:rowcount rowcount $name:columns columns
+      for { set i 1 } { $i <= $rowcount } { incr i } {
+        upvar $multirow_level_up $name:$i row
+        unset row
+      }
+      unset rowcount columns
+    }
+
     extend {
       upvar $multirow_level_up $name:columns columns
       foreach column_name $args {