Index: openacs-4/packages/dotlrn/tcl/spam-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/spam-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn/tcl/spam-procs.tcl	15 May 2009 22:38:13 -0000	1.8
+++ openacs-4/packages/dotlrn/tcl/spam-procs.tcl	1 Nov 2013 21:08:30 -0000	1.9
@@ -96,7 +96,7 @@
 
         # if there were any errors sending the emails, then send an email to the
         # sender letting them know.
-        if {![empty_string_p $errors]} {
+        if {$errors ne ""} {
             set error_subject "There were errors with this spam"
             set error_message "
 <p>