Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v
diff -u -N -r1.28.2.9 -r1.28.2.10
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	30 Sep 2019 19:06:05 -0000	1.28.2.9
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	29 Nov 2019 11:12:34 -0000	1.28.2.10
@@ -896,8 +896,8 @@
         set timezones [lc_list_all_timezones]
         set n [expr {[llength $timezones]-1}]
 
-        set desired_user_timezone [lindex $timezones [randomRange $n] 0]
-        set desired_system_timezone [lindex $timezones [randomRange $n] 0]
+        set desired_user_timezone [lindex $timezones [util::random_range $n] 0]
+        set desired_system_timezone [lindex $timezones [util::random_range $n] 0]
 
         set error_p 0
         ad_try {