diff --git a/WOPO.COB b/WOPO.COB
index 43f3ad0..750bfd8 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -228,7 +228,7 @@
            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.
+      D             MSG-BODY OF INPUT-BUFFER.
            IF NOT SUCCESS THEN DISPLAY MSG-BODY OF INPUT-BUFFER
                                GO TO DIE.
            PERFORM GET-IRC-STATE.