Index: openacs-4/packages/survey/www/admin/survey-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-copy.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/survey/www/admin/survey-copy.tcl	16 Sep 2002 00:00:25 -0000	1.1
+++ openacs-4/packages/survey/www/admin/survey-copy.tcl	18 Sep 2002 12:15:21 -0000	1.2
@@ -27,9 +27,10 @@
 } -on_submit {
     set new_survey_id [survey_copy -survey_id $survey_id -new_name $name]
 
-set survey_id $new_survey_id
-
-ad_returnredirect "one?[export_vars survey_id]"
+    set survey_id $new_survey_id
+ 
+    ad_returnredirect "one?[export_vars survey_id]"
+    ad_script_abort
 }