From 73342ad5beb85538a7766ce16ad8ba002eda3383 Mon Sep 17 00:00:00 2001
From: Quinn Evans <heddwch@lambdaos.org>
Date: Tue, 13 Oct 2015 15:37:43 -0600
Subject: [PATCH] Correctly place misplaced period.

---
 WOPO.COB | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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