diff --git a/cli/arvelie/arvelie.tal b/cli/arvelie/arvelie.tal
index 1ceb95f..f0e4d17 100644
--- a/cli/arvelie/arvelie.tal
+++ b/cli/arvelie/arvelie.tal
@@ -79,7 +79,7 @@ JMP2r
 !emit-dec
 
 @emit-arv ( doty* year* -- )
-	#07d6 SUB2 NIP
+	#07e0 SUB2 NIP
 	( year ) emit-dec
 	( month ) DUP2 #000e DIV2 NIP #11 ADD emit-num
 	( digit3 ) #000e [ DIV2k MUL2 SUB2 ] NIP
@@ -101,10 +101,11 @@ JMP2r
 @doty ( year* month* day* -- doty* )
 	ROT2 ,&y STR2
 	LIT2r 0000
-	SWP2 NIP #01 SUB #00
+	SWP2 NIP #01 SUB #00 EQUk ?&skip
 	&l
 		#00 OVR [ LIT2 &y $2 ] ROT diam STH2 ADD2r
 		INC GTHk ?&l
+	&skip
 	POP2
 	STH2r ADD2
 JMP2r
diff --git a/cli/arvelie/build.sh b/cli/arvelie/build.sh
index 2d95d88..f1f535c 100755
--- a/cli/arvelie/build.sh
+++ b/cli/arvelie/build.sh
@@ -1,4 +1,4 @@
-#!/bin/sh -e
+#!/bin/sh
 
 ID="arvelie"
 ASM="uxncli $HOME/roms/drifblim.rom"
@@ -21,12 +21,16 @@ then
 	cp $DST $CPY
 fi
 
-echo "today"
-$EMU $DST
-echo "gre->arv"
-$EMU $DST "2023-05-25"
-echo "arv->gre"
-$EMU $DST "17K04"
-echo "error"
-$EMU $DST "abc"
+# printf "today    "; $EMU $DST
+# printf "gre->arv "; $EMU $DST "2023-05-25"
+# printf "arv->gre "; $EMU $DST "17K04"
+# printf "error    "; $EMU $DST "abc"
+# echo ""
+# printf "00A00      -> "; $EMU $DST "2016-01-01"
+# printf "2016-01-01 -> "; $EMU $DST "00A00"
+
+# printf "2016-01-14 -> 00B00"; $EMU $DST "2016-01-14"
+
+
+$EMU $DST "2016-01-01"