diff --git a/src/clib/c10sys.cmid b/src/clib/c10sys.cmid
index d6478b2c..8aeb2b23 100644
--- a/src/clib/c10sys.cmid
+++ b/src/clib/c10sys.cmid
@@ -379,56 +379,22 @@ CENTRY	ETIME			; RETURN A TIME FOR ELAPSED TIME MEASUREMENT
 CENTRY	NOW,[PCAL]			; GET CURRENT DATE AND TIME
 
 	HRRZ	D,PCAL			; CAL POINTER
-	.RDATE	C,
-	LDB	A,[360600,,C]		; HIGH-ORDER YEAR SIXBIT
-	SUBI	A,20
-	IMULI	A,10.
-	LDB	B,[300600,,C]		; LOW-ORDER YEAR SIXBIT
-	SUBI	B,20
-	ADDI	A,1900.(B)		; YEAR
-	MOVEM	A,(D)
-
-	LDB	A,[220600,,C]		; HIGH-ORDER MONTH
-	SUBI	A,20
-	IMULI	A,10.
-	LDB	B,[140600,,C]		; LOW-ORDER MONTH
-	SUBI	B,20
-	ADDI	A,(B)
-	MOVEM	A,1(D)			; MONTH
-
-	LDB	A,[060600,,C]		; HIGH-ORDER DAY
-	SUBI	A,20
-	IMULI	A,10.
-	LDB	B,[000600,,C]		; LOW-ORDER DAY
-	SUBI	B,20
-	ADDI	A,(B)
-	MOVEM	A,2(D)			; DAY
-
-	.RTIME	C,
-	LDB	A,[360600,,C]		; HIGH-ORDER HOUR
-	SUBI	A,20
-	IMULI	A,10.
-	LDB	B,[300600,,C]		; LOW-ORDER HOUR
-	SUBI	B,20
-	ADDI	A,(B)
+	.CALL	[SETZ ? 'RQDATE ? SETZM A]
+	 JRST	[SETZ A, ? RETURN]
+	LDB	B,[331100,,A]		; YEAR
+	ADDI	B,1900.
+	MOVEM	B,(D)
+	LDB	B,[270400,,A]
+	MOVEM	B,1(D)			; MONTH
+	LDB	B,[220500,,A]
+	MOVEM	B,2(D)			; DAY
+	LDB	A,[012100,,A]
+	IDIVI	A,60.
+	MOVEM	B,5(D)			; SECOND
+	IDIVI	A,60.
+	MOVEM	B,4(D)			; MINUTE
 	MOVEM	A,3(D)			; HOUR
 
-	LDB	A,[220600,,C]		; HIGH-ORDER MINUTE
-	SUBI	A,20
-	IMULI	A,10.
-	LDB	B,[140600,,C]		; LOW-ORDER MINUTE
-	SUBI	B,20
-	ADDI	A,(B)
-	MOVEM	A,4(D)			; MINUTE
-
-	LDB	A,[060600,,C]		; HIGH-ORDER SECOND
-	SUBI	A,20
-	IMULI	A,10.
-	LDB	B,[000600,,C]		; LOW-ORDER SECOND
-	SUBI	B,20
-	ADDI	A,(B)
-	MOVEM	A,5(D)			; SECOND
-
 	MOVEI	A,(D)
 	RETURN