--- a/gameServer/Actions.hs	Tue Aug 06 00:26:07 2013 +0400
+++ b/gameServer/Actions.hs	Sat Aug 17 23:38:53 2013 +0400
@@ -671,8 +671,11 @@
     io $ moveFailedRecord fileName
 
 processAction (CheckSuccess info) = do
-    Just (CheckInfo fileName _) <- client's checkInfo
+    Just (CheckInfo fileName teams) <- client's checkInfo
+    io $ writeChan (dbQueries si) $ StoreAchievement fileName (map toPair teams) info
     io $ moveCheckedRecord fileName
+    where
+        toPair t = (teamname t, teamowner t)
 
 #else
 processAction SaveReplay = return ()