Index: openacs-4/packages/acs-lang/www/admin/set-system-timezone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/set-system-timezone.tcl,v
diff -u -r1.14.2.1 -r1.14.2.2
--- openacs-4/packages/acs-lang/www/admin/set-system-timezone.tcl	16 Jun 2019 13:11:37 -0000	1.14.2.1
+++ openacs-4/packages/acs-lang/www/admin/set-system-timezone.tcl	3 May 2020 17:22:20 -0000	1.14.2.2
@@ -115,17 +115,17 @@
         set try_offsets [list]
         foreach offset [list $recommended_offset [expr {$recommended_offset -24}]] {
             if { $offset < 0 } {
-                lappend try_offsets '[db_quote [expr {-int(abs($offset)*60*60)}]]'
+                lappend try_offsets [expr {-int(abs($offset)*60*60)}]
             } else {
-                lappend try_offsets '[db_quote [expr {int($offset*60*60)}]]'
+                lappend try_offsets [expr {int($offset*60*60)}]
             }
         }
 
         set query "
             select tz.tz, tz.gmt_offset
             from   timezones tz,
                    timezone_rules tzr
-            where  tzr.gmt_offset in ([join $try_offsets ", "])
+            where  tzr.gmt_offset in ([ns_dbquotelist $try_offsets])
             and    tzr.tz_id = tz.tz_id
             and    to_date('$utc_ansi', 'YYYY-MM-DD HH24:MI:SS') between tzr.utc_start and tzr.utc_end
             order  by tz