diff --git a/src/decsys/decuuo.312 b/src/decsys/decuuo.313
similarity index 99%
rename from src/decsys/decuuo.312
rename to src/decsys/decuuo.313
index 646a929b..fa5ef9f9 100755
--- a/src/decsys/decuuo.312
+++ b/src/decsys/decuuo.313
@@ -5229,19 +5229,19 @@ THSJO1:	.SUSET [.RUIND,,C]
 	JRST (B)
 
 XDATE:	MOVEI A,0
-	.RDATE B,
+	SYSCAL RQDATE,[2000,,B]
+	 JRST UPUTAC
 	CAMN B,[-1]
 	 JRST UPUTAC	;DATE NOT AVAILABLE
-	MOVE C,[440600,,B]
-	PUSHJ P,POOF	;YEAR
-	SUBI D,64.	;THIS PROGRAM WILL NOT WORK IN 28 YEARS
+	LDB D,[331100,,B] ;YEAR
+	SUBI D,64.	;THIS PROGRAM WILL NOT WORK IN 33 YEARS
 	MOVE A,D
 	IMULI A,12.
-	PUSHJ P,POOF	;MONTH
+	LDB D,[270400,,B] ;MONTH
 	SUBI D,1
 	ADD A,D
 	IMULI A,31.
-	PUSHJ P,POOF	;DAY
+	LDB D,[220500,,B] ;DAY
 	SUBI D,1
 	ADD A,D
 XDATE1:	PUSHJ P,UPUTAC