Index: openacs-4/packages/dotlrn/lib/member-email-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/lib/member-email-confirm.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/lib/member-email-confirm.tcl	29 Sep 2013 13:49:45 -0000	1.4
+++ openacs-4/packages/dotlrn/lib/member-email-confirm.tcl	1 Nov 2013 21:08:28 -0000	1.5
@@ -51,7 +51,7 @@
     } -on_submit {
 	if {![info exists btn_cancel] || $btn_cancel eq ""} {
 	    set email [template::util::richtext::get_property content $email]
-	    if {![empty_string_p $community_id]} {
+	    if {$community_id ne ""} {
 
 		foreach one_user_id $user_id {
 		    dotlrn_community::send_member_email \