--- a/gameServer/Actions.hs	Sat Aug 17 23:38:53 2013 +0400
+++ b/gameServer/Actions.hs	Sun Aug 18 17:29:17 2013 +0400
@@ -672,7 +672,8 @@
 
 processAction (CheckSuccess info) = do
     Just (CheckInfo fileName teams) <- client's checkInfo
-    io $ writeChan (dbQueries si) $ StoreAchievement fileName (map toPair teams) info
+    si <- gets serverInfo
+    io $ writeChan (dbQueries si) $ StoreAchievements (B.pack fileName) (map toPair teams) info
     io $ moveCheckedRecord fileName
     where
         toPair t = (teamname t, teamowner t)