Index: openacs-4/packages/dotlrn/www/spam-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam-2.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/www/spam-2.tcl	8 Aug 2006 21:26:24 -0000	1.9
+++ openacs-4/packages/dotlrn/www/spam-2.tcl	1 Nov 2013 21:08:32 -0000	1.10
@@ -33,9 +33,9 @@
 
 form get_values spam_message subject message format
 
-if {$format == "html"} {
+if {$format eq "html"} {
     set preview_message "$message"
-} elseif {$format == "pre"} {
+} elseif {$format eq "pre"} {
     set preview_message [ad_text_to_html $message]
 } else {
     set preview_message [ad_quotehtml $message]