Index: openacs-4/packages/survey/www/admin/send-mail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/send-mail.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/www/admin/send-mail.tcl	16 Sep 2002 00:00:24 -0000	1.1
+++ openacs-4/packages/survey/www/admin/send-mail.tcl	18 Sep 2002 12:15:21 -0000	1.2
@@ -96,7 +96,8 @@
 	    -subject $subject \
             -message $message \
             -query $query
-    ad_returnredirect "one.tcl?survey_id=$survey_id"
+    ad_returnredirect "one?survey_id=$survey_id"
+    ad_script_abort
 }
 
 set context_bar [ad_context_bar "Send Mail"]