--- a/Time.st	Wed Apr 02 19:30:01 2008 +0200
+++ b/Time.st	Thu Apr 03 14:52:29 2008 +0200
@@ -475,6 +475,7 @@
 
     "
      Time now asSeconds
+     (TimeDuration days:1) asSeconds 
     "
 !
 
@@ -715,5 +716,5 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.81 2007-10-18 08:33:46 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.82 2008-04-03 12:52:29 cg Exp $'
 ! !