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.