--- a/Timestamp.st	Mon Nov 10 16:51:51 2014 +0100
+++ b/Timestamp.st	Mon Nov 10 16:53:30 2014 +0100
@@ -2766,8 +2766,8 @@
     t := self asTime.
     info := OperatingSystem timeInfoClass new.
     info year:d year month:d month day:d day
-	 hours:t hours minutes:t minutes seconds:t seconds milliseconds:t milliseconds
-	 utcOffset:(self utcOffset) dst:false dayInYear:d dayInYear dayInWeek:d dayInWeek.
+         hours:t hours minutes:t minutes seconds:t seconds milliseconds:self milliseconds
+         utcOffset:(self utcOffset) dst:false dayInYear:d dayInYear dayInWeek:d dayInWeek.
     ^ info
 !
 
@@ -2779,8 +2779,8 @@
     t := self asUtcTimestamp asTime.
     info := OperatingSystem timeInfoClass new.
     info year:d year month:d month day:d day
-	 hours:t hours minutes:t minutes seconds:t seconds milliseconds:t milliseconds
-	 utcOffset:0 dst:false dayInYear:d dayInYear dayInWeek:d dayInWeek.
+         hours:t hours minutes:t minutes seconds:t seconds milliseconds:self milliseconds
+         utcOffset:0 dst:false dayInYear:d dayInYear dayInWeek:d dayInWeek.
     ^ info
 !
 
@@ -3824,11 +3824,11 @@
 !Timestamp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.196 2014-11-10 15:13:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.197 2014-11-10 15:53:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.196 2014-11-10 15:13:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.197 2014-11-10 15:53:30 cg Exp $'
 ! !