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.7.4.1 -r1.7.4.2
--- openacs-4/packages/survey/www/admin/survey-copy.tcl	17 Dec 2019 15:20:54 -0000	1.7.4.1
+++ openacs-4/packages/survey/www/admin/survey-copy.tcl	17 Dec 2019 16:28:44 -0000	1.7.4.2
@@ -13,7 +13,10 @@
 set user_id [ad_conn user_id]
 
 permission::require_permission -object_id $package_id -privilege survey_create_question
-db_1row get_survey_info {}
+db_1row get_survey_info {
+    select * from surveys
+    where survey_id = :survey_id
+}
 set title_name $name
 set name "[_ survey.Copy_of] $name"
 
@@ -24,7 +27,7 @@
     {survey_id:text(hidden) {value $survey_id}}
 
 } -on_submit {
-    set new_survey_id [survey_copy -survey_id $survey_id -new_name $name]
+    set new_survey_id [survey::copy -survey_id $survey_id -new_name $name]
 
     set survey_id $new_survey_id