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 -N -r1.88 -r1.89
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	17 Oct 2010 21:06:08 -0000	1.88
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	29 Mar 2011 09:53:13 -0000	1.89
@@ -407,7 +407,7 @@
         set message_date [acs_mail_lite::utils::build_date]
 
         # Build the message body
-        set tokens [acs_mail_lite::utils::build_body -mime_type $mime_type $body]
+        set tokens [acs_mail_lite::utils::build_body -mime_type $mime_type -- $body]
 
         # Add attachments if any
         if {[exists_and_not_null file_ids]} {