Index: openacs-4/packages/contacts/www/files.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/files.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/contacts/www/files.tcl	15 Feb 2006 10:06:36 -0000	1.6
+++ openacs-4/packages/contacts/www/files.tcl	25 Apr 2018 19:47:47 -0000	1.7
@@ -32,7 +32,7 @@
     # is why we try if there is an organization that has the user as an
     # employee
 
-    set organization_list [list]
+    set organization_list {}
     db_foreach select_employee_ids "select CASE WHEN object_id_one = :party_id THEN object_id_two ELSE object_id_one END as other_party_id
            from acs_rels,
                 acs_rel_types
@@ -68,7 +68,7 @@
 ad_form -name upload_files -html {enctype multipart/form-data} -form $form_elements -on_request {
 } -on_submit {
     set upload_number 1
-    set message [list]
+    set message {}
     while {$upload_number <= $upload_count} {
 	set file [set "upload_file${upload_number}"]
 	set title [set "upload_title${upload_number}"]