diff --git a/src-server/Server/Communication.hs b/src-server/Server/Communication.hs
index 6733bd0..7d49623 100644
--- a/src-server/Server/Communication.hs
+++ b/src-server/Server/Communication.hs
@@ -336,7 +336,7 @@ sendPings = do
             put stateContainer
           else do
             random <- liftIO nextRandom
-            let newPong = (lastPongTime, random)
+            let newPong = (now, random)
             liftIO $ sendMessage
               ( Ping random
               )
@@ -348,6 +348,6 @@ sendPings = do
                 otherPlayers = filter (\a -> playerId a /= plId) players
             liftIO $ void $ STM.atomically $
               STM.swapTMVar (scPlayers stateContainer) (newPlayer : otherPlayers)
-            put stateContainer
     )
     players
+  put stateContainer