--- a/extensions.st	Thu Apr 17 00:20:35 2014 +0200
+++ b/extensions.st	Thu Apr 17 00:22:00 2014 +0200
@@ -1273,9 +1273,32 @@
     "
 ! !
 
+!Timestamp methodsFor:'arithmetic'!
+
+- aTimeDurationOrNumberOfSeconds
+    "return a new timeDuration"
+
+    |myMillis|
+
+    myMillis := self getMilliseconds.
+
+    aTimeDurationOrNumberOfSeconds isNumber ifTrue:[
+        ^ self species 
+            fromMilliseconds:(myMillis - (aTimeDurationOrNumberOfSeconds * 1000) asInteger)
+    ].
+    aTimeDurationOrNumberOfSeconds isTimeDuration ifTrue:[
+        ^ self species basicNew 
+            setMilliseconds:(myMillis - (aTimeDurationOrNumberOfSeconds getMilliseconds))
+    ].
+    ^ TimeDuration
+        fromMilliseconds:(myMillis - aTimeDurationOrNumberOfSeconds getMilliseconds)
+
+    "Created: / 04-10-2007 / 14:12:29 / cg"
+! !
+
 !stx_libbasic2 class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/extensions.st,v 1.27 2013-08-27 07:31:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/extensions.st,v 1.28 2014-04-16 22:22:00 cg Exp $'
 ! !