--- a/Time.st	Tue Nov 26 13:13:31 2002 +0100
+++ b/Time.st	Tue Nov 26 14:09:19 2002 +0100
@@ -454,7 +454,6 @@
     ^ self
 ! !
 
-
 !Time methodsFor:'printing & storing'!
 
 print12HourFormatOn:aStream
@@ -626,7 +625,9 @@
 !
 
 setSeconds:secs
-    "set my time given seconds since midnight"
+    "set my time given seconds since midnight;
+     Notice the modulu opeartions here - there cannot be a time behond 24hours
+     (use TimeDuration, if you need that)."
 
     secs < 0 ifTrue:[
         timeEncoding := (24 * 3600) - (secs negated \\ (24 * 3600))
@@ -659,8 +660,9 @@
     timeEncoding := encoding
 ! !
 
+
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.55 2002-11-20 10:14:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.56 2002-11-26 13:09:19 cg Exp $'
 ! !