Timestamp.st
changeset 8888 4171ed260947
parent 8886 89cb1f2de1c7
child 9056 d284a6514312
--- a/Timestamp.st	Thu Jun 16 10:41:42 2005 +0200
+++ b/Timestamp.st	Thu Jun 16 10:53:14 2005 +0200
@@ -820,8 +820,9 @@
 utcOffset
     "return the difference between UTC (Greenwich Mean Time) and the local time in seconds.
      If daylight saving time applies to ourself, take that into account.
+
      Add utcOffset to convert from local time to UTC time.
-     Subtract utcOffset to convert from UTC-Time to local time.
+     Subtract utcOffset to convert from UTC time to local time.
 
      If utcOffset is negative, the local timezone is east of Greenwich.
      If utcOffset is positive, the local timezone is west of Greenwich."
@@ -1286,10 +1287,7 @@
 utcSecondsSince1970
     "return the UTC seconds since 1970"
 
-    |localTimeSeconds|
-
-    localTimeSeconds := self getSeconds.
-    ^ localTimeSeconds - self utcOffset
+    ^ self getSeconds + self utcOffset.
 
     "
      Timestamp now utcSecondsSince1970
@@ -1306,7 +1304,7 @@
 !Timestamp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.100 2005-06-16 08:40:29 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.101 2005-06-16 08:53:14 stefan Exp $'
 ! !
 
 Timestamp initialize!