--- a/UtcTimestamp.st	Sat Nov 08 01:20:46 2014 +0100
+++ b/UtcTimestamp.st	Sat Nov 08 01:20:53 2014 +0100
@@ -93,14 +93,13 @@
     "private: ask the operating system to compute the internal osTime (based on the epoch),
      given y,m,d and h,m,s in utc time"
 
-    osTime := OperatingSystem 
-                computeOSTimeFromUTCYear:y month:m day:d
-                hour:h minute:min second:s
-                millisecond:millis
+   self setOSTimeFromUTCYear:y month:m day:d hour:h minute:min second:s millisecond:millis
 
     "
-     UtcTimestamp now   
-     Timestamp now      
+     UtcTimestamp now            
+     Timestamp now              
+     Timestamp now asTZTimestamp             
+     Timestamp now asUtcTimestamp  
     "
 
     "Modified (comment): / 13-10-2011 / 22:05:41 / cg"
@@ -131,10 +130,10 @@
 !UtcTimestamp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UtcTimestamp.st,v 1.10 2014-11-07 21:24:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UtcTimestamp.st,v 1.11 2014-11-08 00:20:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UtcTimestamp.st,v 1.10 2014-11-07 21:24:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UtcTimestamp.st,v 1.11 2014-11-08 00:20:53 cg Exp $'
 ! !