diff --git a/WOPO.COB b/WOPO.COB
index 121ce8e..65895f5 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -508,7 +508,8 @@
                MOVE USER-NAME TO WORK
                CALL "RE-ESCAPE" USING WORK, WOPO-COUNTER
                MOVE WORK TO USER-NAME
-      D        DISPLAY "USER NAME. ", USER-NAME.
+      D        DISPLAY "USER NAME. ", USER-NAME
+               .
            IF NOT DONE THEN
                PERFORM BEGIN-REPLY
                STRING USER-NAME