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