From 19a3a9468690d45f50c2a015bc37272a09989460 Mon Sep 17 00:00:00 2001
From: Quinn Evans <Quinn Evans>
Date: Wed, 22 Mar 2017 20:45:29 -0600
Subject: [PATCH] Fix the thing instead of lying about it.

(See previous commit.)
---
 WOPO.COB | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/WOPO.COB b/WOPO.COB
index 8295267..350de3e 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -978,7 +978,7 @@
                       BF-INPUT,
                       "$NUL$"
                       INTO R(1)
-      D        DISPLAY "BF-INPUT. ", BF-CODE
+      D        DISPLAY "BF-INPUT. ", BF-INPUT
                MOVE 1 TO SRC
                PERFORM BEGIN-STANDARD-REPLY
                PERFORM DO-OUTPUT