--- a/Timestamp.st	Thu Mar 15 23:05:55 2018 +0100
+++ b/Timestamp.st	Thu Mar 15 23:06:24 2018 +0100
@@ -1928,6 +1928,16 @@
     "
 !
 
+picoseconds:anInteger
+    "set the picoseconds (0..1000*1000*1000)"
+
+    picoSeconds:= anInteger
+
+    "
+     Timestamp now picoseconds
+    "
+!
+
 second
     "return the second (0..59).
      ST-80 Timestamp compatibility (I'd prefer the name #seconds, for Time compatibility)."