--- a/gameServer/Actions.hs	Mon Dec 30 13:33:58 2013 -0500
+++ b/gameServer/Actions.hs	Mon Dec 30 14:56:47 2013 -0500
@@ -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)