--- a/Time.st	Tue Jul 13 12:46:55 1999 +0200
+++ b/Time.st	Tue Jul 13 12:49:22 1999 +0200
@@ -285,11 +285,13 @@
     |today|
 
     today := Date today.
-    ^ AbsoluteTime day:today day month:today month year:today year
-		   hour:self hours minutes:self minutes seconds:self seconds
+    ^ AbsoluteTime year:today year month:today month day:today day
+                   hour:self hours minute:self minutes second:self seconds
     "
      Time now asAbsoluteTime
     "
+
+    "Modified: / 13.7.1999 / 12:32:08 / stefan"
 !
 
 asSeconds
@@ -490,5 +492,5 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.37 1999-03-05 21:22:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.38 1999-07-13 10:49:22 stefan Exp $'
 ! !