diff --git a/Handler/Wallet.hs b/Handler/Wallet.hs
index d668a75..ef33871 100644
--- a/Handler/Wallet.hs
+++ b/Handler/Wallet.hs
@@ -11,7 +11,7 @@ getWalletR = loginOrDo $ (\(uid,user) -> do
              apiKey <- runDB $ getBy $ UniqueApiUser uid
              acc <- case apiKey of
                       Just (Entity _ (Api _ k v)) -> do
-                          a <- liftIO $ getAccountBalance man (ApiComplete (T.ApiKey (VCode v) (KeyId k)) (T.CharacterId (userCharId user)))
+                          a <- liftIO $ getStandings man (mkComplete k v (userCharId user))
                           return (Just a)
                       Nothing -> return Nothing
              defaultLayout $ [whamlet|