anchor.diff:                AddClientToRoom(aSenderHandle, tmpInteger);
               end;
       mk_SetGameInfo:
  +            if SenderIsHost then
               begin
  -              RoomId := fClientList.GetByHandle(aSenderHandle).Room;
  -              fRoomInfo[RoomId].GameInfo.LoadFromStream(M);
  +              fRoomInfo[SenderRoom].GameInfo.LoadFromStream(M);
                 SaveHTMLStatus;
               end;
       mk_KickPlayer:
  +            if SenderIsHost then
               begin
                 M.Read(tmpInteger);
                 if fClientList.GetByHandle(tmpInteger) <> nil then
  
positive.code: var
    Kind: TKMessageKind;
    M, M2: TKMemoryStream;
    RoomId: Integer;
    tmpInteger: Integer;
    Client: TKMServerClient;
  begin
    Assert(aLength >= 1, 'Unexpectedly short message');
  
  
negative.code:     Status('Warning: Received data from an unassigned client');
      exit;
    end;
  
    SenderRoom := fClientList.GetByHandle(aSenderHandle).Room;
    SenderIsHost := (SenderRoom <> -1) and
                    (fRoomInfo[SenderRoom].HostHandle = aSenderHandle);
  
    case Kind of
      mk_JoinRoom:
  