Index: openacs-4/packages/acs-mail-lite/tcl/legacy-inbound-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/legacy-inbound-procs.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-mail-lite/tcl/legacy-inbound-procs.tcl	22 Jun 2018 15:48:55 -0000	1.2
+++ openacs-4/packages/acs-mail-lite/tcl/legacy-inbound-procs.tcl	16 Jun 2019 12:50:42 -0000	1.2.2.1
@@ -81,7 +81,7 @@
                 # Special treatment for e-mails which look like they contain an object_id
                 set pot_object_id [lindex [split $email(to) "@"] 0]
                 ns_log Debug "Object_id for mail:: $pot_object_id"
-                if {[ad_var_type_check_number_p $pot_object_id]} {
+                if {[string is integer -strict  $pot_object_id]} {
                     if {[acs_object::object_p -id $pot_object_id]} {
                         callback acs_mail_lite::incoming_object_email -array email -object_id $pot_object_id