diff --git a/src/SUDOKU.MID b/src/SUDOKU.MID
index abe8d24..82fcd2a 100644
--- a/src/SUDOKU.MID
+++ b/src/SUDOKU.MID
@@ -36,8 +36,7 @@ START:  MOVE  P,[-PDLLEN,,PDL-1]       ;Initialize the stack.
 ;Subroutine to read the JCL from DDT and get the command line parameters.
 ;Clobbers B.
 GETJCL: .BREAK 12,[..RJCL,,JCL]        ;Get the JCL
-        MOVE  B,[BPTR,,JCL]            ;Byte pointer to JCL
-        PUSHJ P,                       ;Return from routine.
+        POPJ  P,                       ;Return from routine.
 ;Subroutine to print a string of text on the output.
 ; Clobbers A and B.
 OUTSTR: HRLI  A,BPTR                   ;Ensure, A is a byte pointer.