--- a/Time.st	Wed Sep 26 15:08:24 2001 +0200
+++ b/Time.st	Wed Sep 26 15:09:47 2001 +0200
@@ -593,7 +593,17 @@
         timeEncoding := (24 * 3600) - (secs negated \\ (24 * 3600))
     ] ifFalse:[
         timeEncoding := secs
+    ].
+    timeEncoding > (24 * 3600) ifTrue:[
+        timeEncoding := timeEncoding \\ (24 * 3600).
     ]
+
+    "
+     Time now seconds
+     Time now timeEncoding
+     (Time now addDays:5) seconds     
+     (Time now addDays:5) timeEncoding
+    "
 !
 
 timeEncoding
@@ -613,5 +623,5 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.47 2001-05-17 22:42:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.48 2001-09-26 13:09:47 cg Exp $'
 ! !