diff --git a/src/sysen2/peek.629 b/src/sysen2/peek.629
index 02bc3b39..d9ef6997 100755
--- a/src/sysen2/peek.629
+++ b/src/sysen2/peek.629
@@ -4610,6 +4610,7 @@ PDTIME:	MOVE C,@QDATE	; Get disk-format date
 	DNUM 1,A	; Output day
 	CTYPE "/
 	LDB A,[$TMYR,,C]
+	ADDI A,1900.
 	DNUM 2,A	; Output year
 	CTYPE 40
 	IDIVI B,60.*60.*2	; Find # hours in B
diff --git a/src/syseng/dirdev.86 b/src/syseng/dirdev.86
index 8c1bb900..7f11c395 100755
--- a/src/syseng/dirdev.86
+++ b/src/syseng/dirdev.86
@@ -1445,7 +1445,7 @@ LFF1:	POP	P,A
 	SOJGE	B,LFF1
 	POP	P,C
 
-LFCHR9:	MOVEI	A,49.
+LFCHR9:	MOVEI	A,51.
 	PUSHJ	P,LFHPOS
 	MOVEI	A,BLANK		;REFERENCE DATE.
 	IDPB	A,LFBPTR
@@ -1514,8 +1514,7 @@ LFDATE:	CAMN	A,[-1]
 	MOVEI	A,"/
 	IDPB	A,LFBPTR
 	LDB	A,[UNYRB B]
-	CAIG	A,9
-	IDPB	C,LFBPTR
+	ADDI	A,1900.
 	PUSHJ	P,LFDEC
 	POP	P,B
 	POP	P,C