Index: openacs-4/packages/contacts/lib/contacts.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v diff -u -N -r1.73 -r1.74 --- openacs-4/packages/contacts/lib/contacts.tcl 25 Jun 2007 16:25:39 -0000 1.73 +++ openacs-4/packages/contacts/lib/contacts.tcl 25 Apr 2018 19:47:46 -0000 1.74 @@ -110,7 +110,7 @@ # We clear the list when no value is submited, otherwise # we acumulate the extend values. if { [empty_string_p $extend_option] } { - set extend_values [list] + set extend_values {} } else { lappend extend_values [list $extend_option] } @@ -546,7 +546,7 @@ } - set party_ids [list] + set party_ids {} db_multirow contacts report_contacts_select {} { lappend party_ids $party_id } @@ -597,7 +597,7 @@ eval $command - set keys [list] + set keys {} template::multirow foreach contacts { set key [list] foreach {element details} $report_elements {