Index: openacs-4/packages/survey/www/admin/responses-export.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/responses-export.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/survey/www/admin/responses-export.tcl	12 Mar 2003 01:05:52 -0000	1.5
+++ openacs-4/packages/survey/www/admin/responses-export.tcl	17 May 2003 12:31:13 -0000	1.6
@@ -124,9 +124,9 @@
 	
 	incr r
 	if {$r>99} {
-	    ns_write "${csv_export} "
+	    ns_write "${csv_export}"
 	    set csv_export ""
-	    set rows 0
+	    set r 0
 	}
 
     }