diff --git a/src/maint/1proc.test b/src/maint/1proc.test
index 4ec5e37a..7dcfeddc 100644
--- a/src/maint/1proc.test
+++ b/src/maint/1proc.test
@@ -56,6 +56,9 @@ UPC:	START+1
 START:					;INFERIOR CODE
 	JFCL
 	JRST 2,@[.+1]
+	MOVE A,[-1,,PDL]
+	POPJ A,
+NEXT:	PUSHJ A,.+1
 	MOVE B,[440700,,STRING]
 	ILDB A,B
 	DPB A,B
@@ -63,6 +66,7 @@ START:					;INFERIOR CODE
 	IDPB A,B
 STOP:
 STRING:	ASCIZ /FOOBAR/
+PDL:	NEXT
 CONSTANTS
 LEN=.-START