Index: openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	7 Aug 2017 23:47:59 -0000	1.20
+++ openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	1 Oct 2017 12:16:05 -0000	1.21
@@ -127,7 +127,7 @@
 
     foreach part $expanded_parts {
         catch {mime::getproperty $part content} this_content 
-        switch $this_content {
+        switch -- $this_content {
             "text/plain" {
                 if { ![info exists plain] } {
                     set plain [mime::getbody $part]