diff --git a/src/libdoc/time.kmp9 b/src/libdoc/time.10
similarity index 99%
rename from src/libdoc/time.kmp9
rename to src/libdoc/time.10
index 42d61949..94a7681d 100644
--- a/src/libdoc/time.kmp9
+++ b/src/libdoc/time.10
@@ -67,7 +67,7 @@
 ;;;
 
 #+Maclisp
-(HERALD TIME /4)
+(HERALD TIME)
 
 #+Maclisp
 (DEFVAR STANDARD-OUTPUT TYO)
@@ -152,7 +152,7 @@
   (FORMAT STREAM "~D//~D//~D ~D:~2,'0D:~2,'0D"
 	  MONTH
 	  DATE
-	  (- YEAR 1900.)
+	  YEAR
 	  HOURS
 	  MINUTES
 	  SECONDS))