diff -r acf1ccf06b2d -r 141c0d6c2179 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Sun Dec 29 12:36:16 2013 +0100
+++ b/gameServer/Actions.hs	Sun Dec 29 12:37:05 2013 +0100
@@ -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)