Index: openacs-4/packages/acs-mail-lite/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/lib/Attic/email.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/acs-mail-lite/lib/email.tcl	3 Jun 2006 19:58:49 -0000	1.26
+++ openacs-4/packages/acs-mail-lite/lib/email.tcl	29 Jun 2006 07:51:48 -0000	1.27
@@ -287,7 +287,7 @@
 
 	# Send the mail to all parties.
 	foreach party_id $to {
-	    set name [party::name -party_id $to]
+	    set name [party::name -party_id $party_id]
 	    set first_names [lindex $name 0]
 	    set last_name [lindex $name 1]
 	    set date [lc_time_fmt [dt_sysdate] "%q"]