diff --git a/WOPO.COB b/WOPO.COB
index 0a29cab..ec9cba1 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -163,7 +163,6 @@
                            GO TO DIE.           
 
        SEND-LINE.
-      D    DISPLAY "ENCODING TO ASCII. ", MSG-BODY.
            CALL "ENCODE-STRING" USING ASCII-MSG.
            CALL "CHANNEL-SEND" USING ASCII-TABLE, STATE.
            IF NOT SUCCESS THEN CALL "DECODE-STRING" USING ASCII-MSG