Index: openacs-4/packages/survey/www/admin/question-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-add.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/survey/www/admin/question-add.tcl	27 Oct 2014 16:41:57 -0000	1.7
+++ openacs-4/packages/survey/www/admin/question-add.tcl	27 Jun 2015 20:46:15 -0000	1.8
@@ -43,7 +43,7 @@
 
 get_survey_info -section_id $section_id
 set survey_id $survey_info(survey_id)
-set context [list [list "one?[export_vars -url {survey_id}]" $survey_info(name)] "[_ survey.Add_A_Question]"]
+set context [list [list [export_vars -base one {survey_id}] $survey_info(name)] "[_ survey.Add_A_Question]"]
 
 if {[parameter::get -parameter allow_question_deactivation_p] == 1} {
     ad_form -extend -name create_question -form {