Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	24 Dec 2006 11:09:52 -0000	1.12
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl	10 Jan 2007 21:22:05 -0000	1.13
@@ -111,8 +111,8 @@
     util_unlist [acs_mail_lite::parse_bounce_address -bounce_address $to] user_id package_id signature
     
     # If no user_id found or signature invalid, ignore message
-    if {[empty_string_p $user_id]} {
-        if {[empty_string_p $user_id]} {
+    if {$user_id eq ""} {
+        if {$user_id eq ""} {
             ns_log Debug "acs_mail_lite::incoming_email impl acs-mail-lite: No equivalent user found for $to"
         } else {
             ns_log Debug "acs_mail_lite::incoming_email impl acs-mail-lite: Invalid mail signature $signature"