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.