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.2.5 -r1.7.2.6
--- openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl	29 Nov 2019 11:12:34 -0000	1.7.2.5
+++ openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl	13 Oct 2020 11:53:01 -0000	1.7.2.6
@@ -695,7 +695,7 @@
            set party_id_list [db_list parties_rall { select
                distinct party_id from parties }]
            set object_id_list [db_list acs_objects_rall { select
-               distinct object_id from acs_objects} ]
+               distinct object_id from acs_objects fetch first 100 rows only} ]
            set package_ct [llength $package_id_list]
            set party_ct [llength $party_id_list]
            set object_ct [llength $object_id_list]