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.11 -r1.7.2.12
--- openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl	16 Feb 2021 09:38:34 -0000	1.7.2.11
+++ openacs-4/packages/acs-mail-lite/tcl/test/email-inbound-procs.tcl	16 Feb 2021 14:19:51 -0000	1.7.2.12
@@ -249,7 +249,7 @@
                 foreach section $ns_section_list {
                     lappend size_list [ns_config -int -min 0 $section maxinput 0]
                 }
-                set s0 [tcl::mathfunc::max {*}$size_list]
+                set s0 [lindex [lsort $size_list] end]
 
                 aa_log "r161 given: t0 '${t0}' dur_s '${dur_s}'"
                 aa_log "r161b given: s0 '${s0}' su_max '${su_max}'"