Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	30 Jul 2002 20:18:39 -0000	1.15
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	31 Jul 2002 12:20:12 -0000	1.16
@@ -546,7 +546,7 @@
     upvar $level_up "$var_name:rowcount" counter
     upvar $level_up "$var_name:columns" columns
 
-    if { !$append_p } {
+    if { !$append_p || ![info exists counter]} {
 	set counter 0
     } 
 
@@ -561,7 +561,7 @@
                     lappend local_columns [ns_set key $selection $i]
                 }
                 set local_columns [concat $local_columns $extend]
-                if { !$append_p } {
+                if { !$append_p || ![info exists columns] } {
                     # store the list of columns in the var_name:columns variable
                     set columns $local_columns
                 } else {