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 -r1.18.2.1
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	13 Jan 2005 13:55:28 -0000	1.18
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	8 Jul 2005 10:19:19 -0000	1.18.2.1
@@ -520,7 +520,10 @@
 
 		    set f [open "|$sendmail" "w"]
 		    puts $f "From: $from_addr\nTo: $pretty_to\n$msg"
-		    close $f
+		    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"
+		    }
 		} -finally {
 		}
 	    } else {