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.21 -r1.22
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	29 Dec 2017 11:17:34 -0000	1.21
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	7 Apr 2018 17:52:19 -0000	1.22
@@ -863,8 +863,8 @@
         set timezones [lc_list_all_timezones]
         set n [expr {[llength $timezones]-1}]
 
-        set desired_user_timezone [lindex [lindex $timezones [randomRange $n]] 0]
-        set desired_system_timezone [lindex [lindex $timezones [randomRange $n]] 0]
+        set desired_user_timezone [lindex $timezones [randomRange $n] 0]
+        set desired_system_timezone [lindex $timezones [randomRange $n] 0]
 
         set error_p 0
         ad_try {