diff --git a/src/Vervis.hs b/src/Vervis.hs
index 5b6196f..42170c1 100644
--- a/src/Vervis.hs
+++ b/src/Vervis.hs
@@ -304,8 +304,9 @@ createUser user = do
     vstate <- get
     let users = vsUsers vstate
         next = vsNextUser vstate
-        users' = M.insert next user users'
-    put vstate { vsUsers = users', vsNextUser = UserID $ unUserID next + 1 }
+        users' = M.insert next user users
+        next' = UserID $ unUserID next + 1
+    put vstate { vsUsers = users', vsNextUser = next' }
     saveState
 
 -------------------------------------------------------------------------------