diff --git a/src/Skat/AI/Online.hs b/src/Skat/AI/Online.hs
index 3408c4b..85400d8 100644
--- a/src/Skat/AI/Online.hs
+++ b/src/Skat/AI/Online.hs
@@ -158,7 +158,7 @@ instance ToJSON Query where
         object ["query" .= ("start_game" :: String), "trumps" .= show trumps,
                 "hand" .= toInt handNo, "single" .= toInt sglPlayer ]
     toJSON (BidQuery hand bid) =
-        object ["query" .= ("bid" :: String), "whom" .= show hand ]
+        object ["query" .= ("bid" :: String), "whom" .= show hand, "current" .= bid]
     toJSON (BidResponseQuery hand bid) =
         object ["query" .= ("bid_response" :: String), "from" .= show hand ]
     toJSON (AskHandQuery) =