From 2937b58db278618921fdcb9a8045b266025709f9 Mon Sep 17 00:00:00 2001
From: Quinn Evans <Quinn Evans>
Date: Wed, 22 Mar 2017 22:44:22 -0600
Subject: [PATCH] =?UTF-8?q?MOAR=20DEBUG=20OUTPUT=E2=80=BC?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 WOPO.COB | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/WOPO.COB b/WOPO.COB
index 17c38b0..3e367af 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -225,9 +225,10 @@
        RECEIVE-LINE.
            CALL "CHANNEL-RECV" USING ASCII-TABLE OF INPUT-BUFFER,
                                      STATE.
-      D    DISPLAY "RECEIVED LINE FROM CHANNEL".
            MOVE SPACES TO MSG-BODY OF INPUT-BUFFER.
            CALL "DECODE-STRING" USING INPUT-BUFFER.
+      D    DISPLAY "RECEIVED LINE FROM CHANNEL",
+                   MSG-BODY OF INPUT-BUFFER.
            IF NOT SUCCESS THEN DISPLAY MSG-BODY OF INPUT-BUFFER
                                GO TO DIE.
            PERFORM GET-IRC-STATE.