Index: openacs-4/packages/acs-lang/www/admin/test/timezone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/Attic/timezone.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/admin/test/timezone.tcl	7 Oct 2002 14:32:49 -0000	1.1
+++ openacs-4/packages/acs-lang/www/admin/test/timezone.tcl	10 Jan 2007 21:22:04 -0000	1.2
@@ -33,7 +33,7 @@
 
 set NYC_time [lc_time_utc_to_local $system_time "America/New_York"]
 set NYC_utc_time [lc_time_local_to_utc $NYC_time "America/New_York"]
-if {[string compare $system_time $NYC_utc_time] == 0} {
+if {$system_time eq $NYC_utc_time } {
     set NYC_p "OK"
 } else {
     set NYC_p "<font color=red>FAILED</font>"
@@ -42,23 +42,23 @@
 
 set LA_time [lc_time_utc_to_local $system_time "America/Los_Angeles"]
 set LA_utc_time [lc_time_local_to_utc $LA_time "America/Los_Angeles"]
-if {[string compare $system_time $LA_utc_time] == 0} {
+if {$system_time eq $LA_utc_time } {
     set LA_p "OK"
 } else {
     set LA_p "<font color=red>FAILED</font>"
 }
 
 set paris_time [lc_time_utc_to_local $system_time "Europe/Paris"]
 set paris_utc_time [lc_time_local_to_utc $paris_time "Europe/Paris"]
-if {[string compare $system_time $paris_utc_time] == 0} {
+if {$system_time eq $paris_utc_time } {
     set paris_p "OK"
 } else {
     set paris_p "<font color=red>FAILED</font>"
 }
 
 set tokyo_time [lc_time_utc_to_local $system_time "Asia/Tokyo"]
 set tokyo_utc_time [lc_time_local_to_utc $tokyo_time "Asia/Tokyo"]
-if {[string compare $system_time $tokyo_utc_time] == 0} {
+if {$system_time eq $tokyo_utc_time } {
     set tokyo_p "OK"
 } else {
     set tokyo_p "<font color=red>FAILED</font>"