Index: openacs-4/packages/survey/www/admin/responses-export.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/responses-export.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/survey/www/admin/responses-export.tcl	14 Jun 2015 00:49:36 -0000	1.12
+++ openacs-4/packages/survey/www/admin/responses-export.tcl	27 Jun 2015 20:46:16 -0000	1.13
@@ -23,7 +23,7 @@
 ns_log notice "DAVEB: n_responses=$n_responses"
 if {$n_responses==0} {
     get_survey_info -survey_id $survey_id
-    set context [list [list "one?[export_vars -url {survey_id}]" $survey_info(name)] "[_ survey.CSV_Export]"]
+    set context [list [list [export_vars -base one {survey_id}] $survey_info(name)] "[_ survey.CSV_Export]"]
     ad_return_template "no-responses"
     return
 }