diff --git a/cli/opctest/opctest.tal b/cli/opctest/opctest.tal
index 594f0ee..5778947 100644
--- a/cli/opctest/opctest.tal
+++ b/cli/opctest/opctest.tal
@@ -15,7 +15,8 @@
 		> ;meta: Push short
 		> #06 DEO: Write to metadata ports )
 
-	[ LIT2 "kO ] #18 DEO #18 DEO #0a18 DEO
+	[ LIT2 "kO ] #18 DEO #18 DEO
+	[ LIT2 "1 18 ] DEO #0a18 DEO
 	;meta #06 DEO2
 
 	( part 2
@@ -23,14 +24,16 @@
 		> STH: Move a byte from working stack to return stack
 		> STH2r: Move a short from return stack to working stack )
 
-	[ LITr "k ] [ LIT "O ] STH STH2r #18 DEO #18 DEO #0a18 DEO
+	[ LITr "k ] [ LIT "O ] STH STH2r #18 DEO #18 DEO
+	[ LIT2 "2 18 ] DEO #0a18 DEO
 
 	( part 3
 		> LIT2r: Put a short on return stack
 		> DUP: Duplicate byte
 		> ADDr: Add bytes on return stack )
 
-	[ LIT2r "k 4d ] #01 DUP STH ADDr STH ADDr STH2r #18 DEO #18 DEO #0a18 DEO
+	[ LIT2r "k 4d ] #01 DUP STH ADDr STH ADDr STH2r #18 DEO #18 DEO
+	[ LIT2 "3 18 ] DEO #0a18 DEO
 
 	( part 4
 		> JSI: Subroutine to relative absolute address
@@ -44,7 +47,7 @@
 		> LDAk: Non-destructive load byte from absolute address
 		> JCI: Conditional subroutine to relative absolute address )
 
-	;Dict/ok pstr #0a18 DEO
+	;Dict/ok5 pstr #0a18 DEO
 
 	( part 6
 		> GTH2k: Non-destructive greater-than short
@@ -418,11 +421,11 @@ JMP2r
 JMP2r
 
 @routine ( a b -- c ) ADD JMP2r
-@subroutine ( -- ) [ LIT2 "kO ] #18 DEO #18 DEO #0a18 DEO JMP2r
+@subroutine ( -- ) [ LIT2 "kO ] #18 DEO #18 DEO [ LIT2 "4 18 ] DEO #0a18 DEO JMP2r
 @Absolute &byte $1 &short $2
 
 @Dict [
-	&ok "Ok $1
+	&ok5 "Ok5 $1
 	&done "Tests 20 "Complete. 0a $1
 	&opctests "Opcodes $1
 	&stack-wrap "Stack-wrap $1