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.2.6 -r1.15.2.7
--- openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl	20 Nov 2019 11:27:31 -0000	1.15.2.6
+++ openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl	29 Nov 2019 11:12:34 -0000	1.15.2.7
@@ -1899,7 +1899,7 @@
             # It will be 10 for a while..
             # so use eleven 9's
             # Some cycles are saved by using a constant
-            append uid_partial "." [randomRange 99999999999]
+            append uid_partial "." [util::random_range 99999999999]
             append uid_partial "." [lindex $uid_list 2]
 
             set uid $uid_partial