Index: openacs-4/packages/survey-reports/www/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey-reports/www/view.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/survey-reports/www/view.tcl	14 Nov 2005 04:31:01 -0000	1.2
+++ openacs-4/packages/survey-reports/www/view.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -43,9 +43,9 @@
 set screen_name $user(screen_name)
 set current_date [ns_fmttime [ns_time] "%B %e, %Y"]
 
-set var_names [list]
+set var_names {}
 
-set used_list [list]
+set used_list {}
 set orig_survey_id $survey_id
 
 db_multirow surveys_used surveys_used {
@@ -411,7 +411,7 @@
 set properties(manage_url) "[ad_conn package_url]manage/${item(name)}"
 set properties(admin_p) [permission::permission_p -object_id $package_id -privilege admin]
 
-set vars [list]
+set vars {}
 foreach var $var_names {
     lappend vars $var [set $var]
 }