diff --git a/WOPO.COB b/WOPO.COB
index e335de4..16ed787 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -1281,7 +1281,7 @@
 
        DO-NEXT-INSTRUCTION.
            READ PROGRAM-CODE RECORD.
-           IF IN-REG IS NOT EQUAL TO 9 THEN
+           IF NOT INPUT-FROM-RECORD THEN
                MOVE IN-REG TO INPUT-SOURCE
            ELSE
                IF NEXT-IP OF PROGRAM-RECORD IS NOT LESS THAN 999 THEN