Index: openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl,v
diff -u -N -r1.15 -r1.15.2.1
--- openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl	22 Jun 2018 15:49:30 -0000	1.15
+++ openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl	16 Jun 2019 11:38:44 -0000	1.15.2.1
@@ -154,7 +154,7 @@
                     max_blob_chars -
                     mpri_min -
                     mpri_max {
-                        set v_p [ad_var_type_check_integer_p $new(${spn})]
+                        set v_p [string is integer -strict $new(${spn})]
                         if { $v_p } {
                             if { $new(${spn}) < 0 } {
                                 set v_p 0
Index: openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl,v
diff -u -N -r1.7 -r1.7.2.1
--- openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl	23 Jul 2018 14:56:36 -0000	1.7
+++ openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl	16 Jun 2019 11:38:44 -0000	1.7.2.1
@@ -18,7 +18,6 @@
         acs_mail_lite::unique_id_create
         acs_mail_lite::unique_id_parse
         ad_system_owner
-        ad_var_type_check_integer_p
         apm_package_id_from_key
         f::lmax
         party::get_by_email
@@ -378,13 +377,13 @@
            if { [catch { set sid [acs_mail_lite::imap_conn_go] } errmsg ] } {
                set sid "z"
            }
-           set sid_p [ad_var_type_check_integer_p $sid]
+           set sid_p [string is integer -strict $sid]
            aa_true "ref407. acs_mail_lite::imap_conn_go" $sid_p
 
            if { [catch {set sid4 [acs_mail_lite::imap_conn_go -conn_id ""] } errmsg] } {
                set sid4 "z"
            }
-           set sid4_p [ad_var_type_check_integer_p $sid4]
+           set sid4_p [string is integer -strict $sid4]
            aa_true "ref424. acs_mail_lite::imap_conn_go -conn_id ''" $sid4_p
            
            aa_log "Checking whether ns_imap is installed..."
@@ -450,7 +449,7 @@
                if { [catch {set sid3 [acs_mail_lite::imap_conn_go -conn_id $sid] } errmsg ] } {
                    set sid3 "z"
                }
-               set sid3_p [ad_var_type_check_integer_p $sid3]
+               set sid3_p [string is integer -strict $sid3]
                aa_false "ref418. acs_mail_lite::imap_conn_go -conn_id '${sid}'" $sid3_p
 
                set sid5 "all"