From bc6c250aa3f60077bc950206a52a018518dc2929 Mon Sep 17 00:00:00 2001
From: Quinn Evans <heddwch@lambdaos.org>
Date: Sun, 27 Sep 2015 02:30:46 -0600
Subject: [PATCH] (Re-)fix $RELEVEL

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

diff --git a/WOPO.COB b/WOPO.COB
index 3d19837..081b68b 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -350,7 +350,8 @@
            MOVE REG(1) TO USER-NAME.
            IF USER-LEVEL IS EQUAL TO 99 THEN
                MOVE REG(2) TO USER-LEVEL
-               WRITE USER-RECORD.
+               REWRITE USER-RECORD
+	           INVALID KEY WRITE USER-RECORD.
            READ USERS RECORD
                INVALID KEY MOVE 0 TO USER-LEVEL.
            INITIALIZE MSG-BODY.