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 -N -r1.13.4.1 -r1.13.4.2
--- openacs-4/packages/survey/www/admin/responses-export.tcl	16 Dec 2019 17:14:38 -0000	1.13.4.1
+++ openacs-4/packages/survey/www/admin/responses-export.tcl	17 Dec 2019 16:28:44 -0000	1.13.4.2
@@ -22,7 +22,7 @@
 set n_responses [db_string get_n_responses {}]
 ns_log notice "DAVEB: n_responses=$n_responses"
 if {$n_responses==0} {
-    get_survey_info -survey_id $survey_id
+    survey::get_info -survey_id $survey_id
     set context [list [list [export_vars -base one {survey_id}] $survey_info(name)] "[_ survey.CSV_Export]"]
     ad_return_template "no-responses"
     return
@@ -118,7 +118,7 @@
       }
 # decode boolean answers
 	if {$question_data_type($question_id)=="boolean"} {
-	    set response_value [survey_decode_boolean_answer -response $response_value -question_id $question_id]
+	    set response_value [survey::decode_boolean_answer -response $response_value -question_id $question_id]
 	}
 	if {$question_data_type($question_id)=="blob"} {
 	    set response_value [db_string get_filename {} -default ""]