Index: openacs-4/packages/survey/www/admin/question-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-delete.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/survey/www/admin/question-delete.tcl	27 Oct 2014 16:41:57 -0000	1.7
+++ openacs-4/packages/survey/www/admin/question-delete.tcl	27 Jun 2015 20:46:15 -0000	1.8
@@ -54,16 +54,15 @@
 	    db_transaction {
 
 		db_dml survey_question_responses_delete {}
-
 		db_dml survey_question_choices_delete {}
-
 		db_exec_plsql survey_delete_question {}
+
 		if {$sort_order ne ""} {
 		    db_dml survey_renumber_questions {}
 		}
 	    } on_error {
     
-		ad_return_error "[_ survey.Database_Error]" "[_ survey.lt_There_was_an_error_wh]
+		ad_return_error [_ survey.Database_Error] "[_ survey.lt_There_was_an_error_wh]
 		<pre>
 		$errmsg
 		</pre>
@@ -75,7 +74,7 @@
 	    db_release_unused_handles
 	    set sort_order [expr {$sort_order -1}]
 	}
-        ad_returnredirect "one?[export_vars -url {survey_id}]&#${sort_order}"
+        ad_returnredirect "[export_vars -base one {survey_id}]&#$sort_order"
         ad_script_abort
     }