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.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	6 Oct 2006 13:39:40 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	10 Jan 2007 21:22:12 -0000	1.10
@@ -116,7 +116,7 @@
     # Expand any first-level multipart/alternative children.
     set expanded_parts [list]
     foreach part $parts {
-        if { [string equal [mime::getproperty $part content] "multipart/alternative" ] } {
+        if {[mime::getproperty $part content] eq "multipart/alternative"} {
             foreach child_part [mime::getproperty $part parts] {
                 lappend expanded_parts $child_part
             }