diff --git a/cli/arvelie/arvelie.tal b/cli/arvelie/arvelie.tal
index 9127bff..c9b62a3 100644
--- a/cli/arvelie/arvelie.tal
+++ b/cli/arvelie/arvelie.tal
@@ -62,12 +62,12 @@ JMP2r
 	( year )
 	STHk LDZ2 bytedec #0064 MUL2 INCr INCr
 	STHkr LDZ2 bytedec ADD2 INCr INCr INCr
+	DUP2
 	( month )
 	STHkr LDZ2 bytedec INCr INCr INCr
 	( day )
-	STHr LDZ2 bytedec
-
-		doty pdec #0a18 DEO
+	STHr LDZ2 bytedec #0001 SUB2
+	doty SWP2 print-arvelie #0a18 DEO
 	#010f DEO
 
 JMP2r
@@ -88,7 +88,6 @@ JMP2r
 @diam ( year* month -- days )
 
 	#00 OVR ;&m ADD2 LDA
-
 	SWP #01 NEQ ?&no-feb
 		STH DUP2 is-leap-year STHr ADD
 		&no-feb