--- a/Timestamp.st	Thu Nov 06 17:54:42 2014 +0100
+++ b/Timestamp.st	Thu Nov 06 17:55:44 2014 +0100
@@ -2545,6 +2545,12 @@
     "Created: 1.7.1996 / 14:33:21 / cg"
 !
 
+fromOSTimeWithMilliseconds:anUninterpretedOSTime
+    "strictly private: set the seconds from an OS time (since whatever)"
+
+    osTime := anUninterpretedOSTime
+!
+
 getMilliseconds
     "strictly private: return the milliseconds (since whatever)"
 
@@ -3480,11 +3486,11 @@
 !Timestamp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.170 2014-11-06 16:47:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.171 2014-11-06 16:55:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.170 2014-11-06 16:47:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.171 2014-11-06 16:55:44 cg Exp $'
 ! !