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 -r1.7.2.7 -r1.7.2.8
--- openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl	28 Oct 2020 15:39:19 -0000	1.7.2.7
+++ openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl	15 Dec 2020 13:10:29 -0000	1.7.2.8
@@ -314,17 +314,17 @@
 
                 aa_log "p_arr(s2) = '$p_arr(s2)'"
 
-                # verify earlier is higher priority
-                if { $p_arr(${f1}) < $p_arr(${f2}) } {
+                # verify earlier is higher or equal priority
+                if { $p_arr(${f1}) <= $p_arr(${f2}) } {
                     set cron_p 1
                 } else {
                     set cron_p 0
                 }
                 aa_true "earlier email assigned first \
  ${f1} '$p_arr(${f1})' < ${f2} '$p_arr(${f2})' " $cron_p
 
-                # verify larger size has slower priority
-                if { $p_arr(${z1}) < $p_arr(${z2}) } {
+                # verify larger size has slower or equal priority
+                if { $p_arr(${z1}) <= $p_arr(${z2}) } {
                     set size_p 1
                 } else {
                     set size_p 0