Index: openacs-4/packages/dotlrn/www/spam-recipients.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam-recipients.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/spam-recipients.tcl	11 Mar 2008 14:49:00 -0000	1.6
+++ openacs-4/packages/dotlrn/www/spam-recipients.tcl	1 Nov 2013 21:08:32 -0000	1.7
@@ -7,7 +7,7 @@
 set spam_name [bulk_mail::parameter -parameter PrettyName -default [_ dotlrn.Spam]]
 set context_bar [list [list $referer [_ dotlrn.Admin]] "$spam_name [_ dotlrn.Community]"]
 
-if { ![exists_and_not_null community_id] } {
+if { (![info exists community_id] || $community_id eq "") } {
   set community_id [dotlrn_community::get_community_id]
 }
 set community_name [dotlrn_community::get_community_name $community_id]