From ad88c521c1a4e89990713e4f825ee11fd031c29f Mon Sep 17 00:00:00 2001
From: Quinn Evans <heddwch@lambdaos.org>
Date: Wed, 30 Sep 2015 13:22:32 -0600
Subject: [PATCH] Fix bounds checking on UNREAD-INSTRUCTION.

---
 BF-RUN.COB | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/BF-RUN.COB b/BF-RUN.COB
index d53e246..e09a4ce 100644
--- a/BF-RUN.COB
+++ b/BF-RUN.COB
@@ -192,7 +192,7 @@
                        ADD 1 TO LOOP-WORK.
 
        UNREAD-INSTRUCTION.
-           IF IP IS GREATER THAN 1 THEN
+           IF IP IS GREATER THAN 3 THEN
                SUBTRACT 2 FROM IP
                UNSTRING BF-CODE INTO CURRENT-INSTRUCTION WITH POINTER IP
            ELSE