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.94 -r1.95
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	17 Sep 2017 16:12:32 -0000	1.94
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	30 Sep 2017 17:42:31 -0000	1.95
@@ -498,7 +498,7 @@
 
         # Set the subject
         if { $subject ne "" } {
-            set encoded_subject [acs_mail_lite::utils::build_subject $subject]
+            set encoded_subject [acs_mail_lite::utils::build_subject -- $subject]
             mime::setheader $tokens Subject $encoded_subject
         }
 
Index: openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl	7 Aug 2017 23:47:57 -0000	1.5
+++ openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl	30 Sep 2017 17:42:32 -0000	1.6
@@ -164,7 +164,7 @@
                                    -canonical "text/plain" \
                                    -param [list charset $charset] \
                                    -encoding "quoted-printable" \
-                                   -string [ad_html_to_text "$body"]]
+                                   -string [ad_html_to_text -- $body]]
         
         set message_token [mime::initialize \
                                -canonical "multipart/alternative" \