--- a/Time.st	Fri Mar 18 15:41:06 2005 +0100
+++ b/Time.st	Wed Mar 23 13:50:46 2005 +0100
@@ -463,6 +463,17 @@
     ^ self
 !
 
+asTimeDuration
+    "return an TimeDuration object from the receiver, taking the time since midnight."
+
+    ^ TimeDuration 
+                   hours:(self hours) minutes:(self minutes) seconds:(self seconds)
+                   milliseconds:(self milliseconds)
+    "
+     Time now asTimeDuration 
+    "
+!
+
 asTimeStamp
     "return an TimeStamp object from the receiver.
      The date components are taken from today."
@@ -685,5 +696,5 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.75 2005-02-18 11:16:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.76 2005-03-23 12:50:46 cg Exp $'
 ! !