diff -r f4d72b8d0d89 -r 73caeb68bf1f Timestamp.st
--- a/Timestamp.st	Sun Mar 21 19:37:43 2010 +0000
+++ b/Timestamp.st	Thu Apr 08 18:25:02 2010 +0100
@@ -107,7 +107,7 @@
                                          millisecond:millis)
 
     "
-     Timestamp UTCYear:1970 month:1 day:1 hour:1 minute:0 second:0 millisecond:0
+     Timestamp UTCYear:1970 month:1 day:1 hour:0 minute:0 second:0 millisecond:0
      Timestamp UTCYear:1991 month:1 day:2 hour:12 minute:30 second:0 millisecond:0
      Timestamp UTCYear:1991 month:1 day:2 hour:12 minute:30 second:0 millisecond:100
      Timestamp UTCYear:1999 month:7 day:1 hour:1 minute:0 second:0 millisecond:0
@@ -120,22 +120,20 @@
 !
 
 day:d month:m year:y hour:h minutes:min seconds:s
+    <resource: #obsolete>
     "This is obsolete. User #year:month:day:hour:minute:second:"
 
     ^ self 
         year:y month:m day:d hour:h 
         minute:min second:s millisecond:0
 
-    "
-     Timestamp day:2 month:1 year:1991 hour:12 minute:30 second:0 
-     Timestamp day:8 month:1 year:1995 hour:0 minute:43 second:48 
-    "
 
     "Modified: / 1.7.1996 / 15:22:26 / cg"
     "Modified: / 13.7.1999 / 12:29:56 / stefan"
 !
 
 day:d month:m year:y hour:h minutes:min seconds:s milliseconds:millis
+    <resource: #obsolete>
     "This is obsolete. User #year:month:day:hour:minute:second:millisecond:"
 
     ^ self year:y month:m day:d hour:h minute:min second:s millisecond:millis
@@ -191,7 +189,7 @@
         hour:aTime hours 
         minute:aTime minutes 
         second:aTime seconds 
-
+        millisecond:0
     "
      Timestamp fromDate:(Date today) andTime:(Time now)  
      Timestamp fromDate:(Date today plusDays:1) andTime:(Time now) 
@@ -614,7 +612,7 @@
      Timestamp year:1970 month:1 day:1 hour:1 minute:0 second:0 
      Timestamp year:1991 month:1 day:2 hour:12 minute:30 second:0 
      Timestamp year:1991 month:1 day:2 hour:12 minute:30 second:0 millisecond:100
-     Timestamp year:2000 month:1 day:1 hour:1 minutes:0 second:0 
+     Timestamp year:2000 month:7 day:1 hour:1 minute:0 second:0 
     "
 
     "Modified: / 1.7.1996 / 15:22:07 / cg"
@@ -636,7 +634,7 @@
      Timestamp year:1970 month:1 day:1 hour:0 minute:0 second:0 
      Timestamp year:1991 month:1 day:2 hour:12 minute:30 second:0 
      Timestamp year:1991 month:1 day:2 hour:12 minute:30 second:0 millisecond:100
-     Timestamp year:2000 month:1 day:1 hour:1 minute:0 second:0 
+     Timestamp year:2000 month:7 day:1 hour:1 minute:0 second:0 
     "
 
     "Modified: / 1.7.1996 / 15:22:07 / cg"
@@ -889,7 +887,6 @@
     "Created: / 16-06-2005 / 16:13:36 / masca"
 ! !
 
-
 !Timestamp methodsFor:'accessing'!
 
 day
@@ -1209,11 +1206,6 @@
     ^ self getMilliseconds
 !
 
-asNative
-	#swAdded.
-	^self
-!
-
 asSeconds
     "return the number of seconds elapsed since whatever time the
      OperatingSystem bases its time upon. Since this is totally
@@ -1402,7 +1394,12 @@
 
     |t off|
 
-    t := OperatingSystem computeTimeAndDateFrom:osTime.
+    isLocal ifTrue:[
+        t := OperatingSystem computeTimeAndDateFrom:osTime.
+    ] ifFalse:[
+        t := OperatingSystem computeUTCTimeAndDateFrom:osTime.
+    ].
+
     shortFormat ifTrue:[
         self assert:(t year between:1951 and:2049).
         (t year \\ 100) printOn:aStream leftPaddedTo:2 with:$0.
@@ -1438,6 +1435,7 @@
 
     "
      Timestamp now printGeneralizedOn:Transcript. Transcript cr. 
+     Timestamp now printGeneralizedOn:Transcript isLocal:true. Transcript cr. 
      (Timestamp fromSeconds:0) printGeneralizedOn:Transcript. Transcript cr.
      Time now printOn:Transcript. Transcript cr.           
      Date today printOn:Transcript. Transcript cr.        
@@ -1669,8 +1667,6 @@
     "
 ! !
 
-
-
 !Timestamp methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter
@@ -2430,11 +2426,11 @@
 !Timestamp class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Timestamp.st 10501 2010-02-13 23:34:44Z vranyj1 $'
+    ^ '$Id: Timestamp.st 10510 2010-04-08 17:25:02Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.127 2010/02/10 17:47:27 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.129 2010/03/31 09:41:13 stefan Exp §'
 ! !
 
 Timestamp initialize!
@@ -2442,3 +2438,4 @@
 
 
 
+