Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -r1.18.2.1 -r1.18.2.2
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	8 Jul 2005 10:19:19 -0000	1.18.2.1
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	8 Jul 2005 13:09:16 -0000	1.18.2.2
@@ -520,6 +520,7 @@
 
 		    set f [open "|$sendmail" "w"]
 		    puts $f "From: $from_addr\nTo: $pretty_to\n$msg"
+		    set err1 {}
 		    set err2 {}
 		    if { [catch {set err1 [close $f]} err2] } { 
 			ns_log Error "Attempt to send From: $from_addr\nTo: $pretty_to\n$msg failed.\nError $err1 : $err2"