Index: openacs-4/packages/acs-admin/www/send-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/send-email.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-admin/www/send-email.tcl	7 Aug 2017 23:47:45 -0000	1.7
+++ openacs-4/packages/acs-admin/www/send-email.tcl	9 Jan 2018 13:21:00 -0000	1.8
@@ -23,9 +23,18 @@
     return_url:onevalue
 }
 
-if {[catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $email_from -subject $subject -body $message} errmsg]} {
-    ad_return_error $error_subject "<p>$error_message</p>
-    <div><code>[ns_quotehtml $errmsg]</code></div>"
+ad_try {
+
+    acs_mail_lite::send \
+        -send_immediately \
+        -to_addr $email \
+        -from_addr $email_from \
+        -subject $subject \
+        -body $message
+
+} on error {errorMsg} {
+    ad_return_error $error_subject "<p>[ns_quotehtml $error_message]</p>
+          <div><code>[ns_quotehtml $errorMsg]</code></div>"
     ad_script_abort
 }