--- a/Time.st	Thu May 18 09:18:06 2000 +0200
+++ b/Time.st	Fri May 19 11:04:06 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic' }"
+
 AbstractTime subclass:#Time
 	instanceVariableNames:'timeEncoding'
 	classVariableNames:''
@@ -355,7 +357,7 @@
 !Time methodsFor:'comparing'!
 
 < aTime
-    "return true if the argument, aTime is before the receiver"
+    "return true if the receiver is before the argument"
 
     ^ timeEncoding < aTime timeEncoding
 !
@@ -371,7 +373,7 @@
 !
 
 > aTime
-    "return true if the argument, aTime is after the receiver"
+    "return true if the receiver is before the argument"
 
     ^ timeEncoding > aTime timeEncoding
 !
@@ -609,5 +611,5 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.45 1999-11-18 14:19:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.46 2000-05-19 09:04:06 cg Exp $'
 ! !