Change FILE-TIME->STRING to use a full year rather than just the last

two digits.  RFC 822 specifies just two digits, but this has been
superseded by a later RFC.

diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm
index d75e08d7989630fee1db1cdf8e5930457e87cf8f..8dca1e2abd3095aeebf4fa35597840b6a084d437 100644 (file)
--- a/v7/src/runtime/os2prm.scm
+++ b/v7/src/runtime/os2prm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2prm.scm,v 1.17 1995/04/23 05:53:47 cph Exp $
+$Id: os2prm.scm,v 1.18 1995/07/07 06:37:24 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -115,7 +115,7 @@ MIT in each case. |#
                   " "
                   (month/short-string (decoded-time/month dt))
                   " "
-                  (number->string (modulo (decoded-time/year dt) 100))
+                  (number->string (decoded-time/year dt))
                   " "
                   (d2 (decoded-time/hour dt))
                   ":"