Index: openacs-4/packages/survey/www/admin/survey-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-delete.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/survey/www/admin/survey-delete.tcl	16 Sep 2002 00:00:25 -0000	1.1
+++ openacs-4/packages/survey/www/admin/survey-delete.tcl	18 Sep 2002 12:15:21 -0000	1.2
@@ -35,8 +35,10 @@
     if {$confirmation} {
 	db_exec_plsql delete_survey {}
 	ad_returnredirect "."
+        ad_script_abort
     } else {
-	ad_returnredirect "one.tcl?[export_vars survey_id]"
+	ad_returnredirect "one?[export_vars survey_id]"
+        ad_script_abort
     }
 }