diff --git a/WOPO.COB b/WOPO.COB
index 724506e..8094b53 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -404,8 +404,13 @@
                   WITH POINTER PTR(SRC).
            PERFORM SEND-LINE.
 
+       MAYBE-SHOW-ESCAPES.
+           IF SHOULD-SHOW-ESCAPES THEN
+               CALL "RE-ESCAPE" USING R(SRC).
+
        DO-OUTPUT.
            IF STANDARD-OUTPUT THEN
+               PERFORM MAYBE-SHOW-ESCAPES
                STRING R(SRC) DELIMITED BY "$NUL$",
                       "$NUL$"
                       INTO MSG-BODY OF OUTPUT-BUFFER