Index: openacs-4/packages/notifications/tcl/notification-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-callback-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/notifications/tcl/notification-callback-procs.tcl	7 Jun 2008 20:29:01 -0000	1.4
+++ openacs-4/packages/notifications/tcl/notification-callback-procs.tcl	27 Oct 2014 16:41:50 -0000	1.5
@@ -73,7 +73,7 @@
     
     set to_stuff [notification::email::parse_reply_address -reply_address $to]
     # We don't accept a bad incoming email address
-    if {[empty_string_p $to_stuff]} {
+    if {$to_stuff eq ""} {
 	# This is not an e-mail notification can work with. Maybe bounce ?
 	return
     }
@@ -83,7 +83,7 @@
     set user_id [cc_lookup_email_user $from]
     
     # We don't accept empty users for now
-    if {[empty_string_p $user_id]} {
+    if {$user_id eq ""} {
 	ns_log Notice "acs_mail_lite::incoming_email -impl notifications: Unknown sender with email $from. Bouncing message."
 	# bounce message with an informative error.
 	notification::email::bounce_mail_message \