--- a/gameServer/Actions.hs	Fri Dec 27 01:22:42 2013 +0400
+++ b/gameServer/Actions.hs	Fri Dec 27 01:23:12 2013 +0400
@@ -717,8 +717,9 @@
 
 processAction (CheckSuccess info) = do
     Just (CheckInfo fileName teams) <- client's checkInfo
+    p <- client's clientProto
     si <- gets serverInfo
-    io $ writeChan (dbQueries si) $ StoreAchievements (B.pack fileName) (map toPair teams) info
+    io $ writeChan (dbQueries si) $ StoreAchievements p (B.pack fileName) (map toPair teams) info
     io $ moveCheckedRecord fileName
     where
         toPair t = (teamname t, teamowner t)