diff --git a/cli/opctest/opctest.tal b/cli/opctest/opctest.tal
index c8dc87b..691879a 100644
--- a/cli/opctest/opctest.tal
+++ b/cli/opctest/opctest.tal
@@ -76,6 +76,8 @@
 	STHr AND STHr AND
 	;Dict/stack-wrap test-part
 
+	( restore stack ) #0000 #0000
+
 	( Part 8
 		> Testing RAM wrapping
 		> Storing 12 in 0xffff, and 34 in 0x0000 )
@@ -148,7 +150,7 @@ JMP2r
 
 @pstr ( str* -- )
 	DUP2 LDA
-		DUP ?{ POP2 JMP2r } 
+		DUP ?{ POP POP2 JMP2r }
 		#18 DEO
 	INC2 !pstr