--- a/Date.st	Thu Mar 26 17:23:23 2015 +0100
+++ b/Date.st	Thu Mar 26 18:06:23 2015 +0100
@@ -1660,6 +1660,7 @@
     "
 ! !
 
+
 !Date class methodsFor:'obsolete'!
 
 day:day month:month year:year
@@ -2402,7 +2403,7 @@
 
 asSeconds
     "return the seconds between 1.jan.1901 and the same time in the receivers 
-     day. (i.e. midnight to midnight).
+     day. (i.e. midnight to midnight). The returned number may be negative for dates before 1901.
      This does not include any leapSeconds ... strictly speaking, this is incorrect.
      ST-80 compatibility."
 
@@ -2411,6 +2412,7 @@
     "
      (Date newDay: 5 month: 8 year: 1962) asSeconds
      (Date newDay: 1 month: 1 year: 1901) asSeconds
+     (Date newDay: 1 month: 1 year: 1700) asSeconds
      (Date today addDays:7) asSeconds - Date today asSeconds
     "
 
@@ -3469,11 +3471,11 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.167 2015-03-24 07:18:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.168 2015-03-26 17:06:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.167 2015-03-24 07:18:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.168 2015-03-26 17:06:23 cg Exp $'
 ! !