--- a/AbstractTime.st	Thu Feb 05 14:59:29 2009 +0100
+++ b/AbstractTime.st	Thu Feb 05 15:03:30 2009 +0100
@@ -548,8 +548,9 @@
     ^ aTimeOrNumberOfSeconds differenceFromTimestamp:self.
 
     "
-     Timestamp now - 3600. 
+     Timestamp now - 3600.  
      Time now - 3600.   
+     (Time now addSeconds:10) - Time now   
      (TimeDuration fromString:'1.5hr') - 3600.   
      (TimeDuration fromString:'1.5hr') - (TimeDuration fromString:'1hr')   
 
@@ -830,6 +831,12 @@
     ^ self subclassResponsibility
 ! !
 
+!AbstractTime methodsFor:'double dispatching'!
+
+differenceFromTimestamp:aTimestamp
+    ^ aTimestamp getSeconds - self getSeconds
+! !
+
 !AbstractTime methodsFor:'printing & storing'!
 
 addPrintBindingsTo:aDictionary
@@ -1060,5 +1067,5 @@
 !AbstractTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.60 2009-02-05 13:59:02 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.61 2009-02-05 14:03:30 sr Exp $'
 ! !