From b6b9ed89b9009940ca4691a367e379a7701ab86f Mon Sep 17 00:00:00 2001
From: Quinn Evans <Quinn Evans>
Date: Wed, 22 Mar 2017 20:40:17 -0600
Subject: [PATCH] Make $LIST-USERS actually work again.

---
 WOPO.COB | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/WOPO.COB b/WOPO.COB
index 517a115..55cb84c 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -930,9 +930,9 @@
                PERFORM REPLY-NAK.
            READ USERS RECORD
                INVALID KEY MOVE 0 TO USER-LEVEL.
-           PERFORM BEGIN-STANDARD-REPLY.
-           STRING USER-RECORD, "$NUL$" INTO R(1).
            MOVE 1 TO SRC.
+           STRING USER-RECORD, "$NUL$" INTO R(1).
+           PERFORM BEGIN-STANDARD-REPLY.
            PERFORM DO-OUTPUT.
 
        HANDLE-BF-CODE.