Use pivot of 1970, since that is the date that will usually screw the

unix libc functions.

diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm
index ccf21757f72b7cb70bd5484c9a1142e9ba6604d2..3684ffc41355865cb1714990940ca0fcde62c67a 100644 (file)
--- a/v7/src/runtime/datime.scm
+++ b/v7/src/runtime/datime.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: datime.scm,v 14.29 2000/05/23 21:48:53 cph Exp $
+$Id: datime.scm,v 14.30 2000/05/23 21:51:26 cph Exp $
 
 Copyright (c) 1988-2000 Massachusetts Institute of Technology
 
@@ -429,7 +429,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (let ((n (string->number string)))
     (if (not (exact-nonnegative-integer? n))
        (error:bad-range-argument string 'STRING->YEAR))
-    (cond ((< n 38) (+ 2000 n))
+    (cond ((< n 70) (+ 2000 n))
          ((< n 100) (+ 1900 n))
          (else n))))