Index: openacs-4/packages/webmail/tcl/wm-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/tcl/wm-util-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail/tcl/wm-util-procs.tcl	20 Apr 2001 20:51:23 -0000	1.1
+++ openacs-4/packages/webmail/tcl/wm-util-procs.tcl	26 Feb 2005 16:00:10 -0000	1.2
@@ -24,7 +24,7 @@
 		SELECT ( (sysdate - timezone.local_to_utc (:client_tz, sysdate)) * 24 ) 
 		FROM dual 
 	    }]
-	    set client_tz_offset [expr [ad_locale_system_tz_offset] - $client_oracle_offset]
+	    set client_tz_offset [expr [lang::system::timezone_utc_offset] - $client_oracle_offset]
 	} {
 	    # They probably have not installed acs-lang; return no offset
 	    return 0