anchor.diff:  
   
   { TKMUnitGroup }
  +//Create a Group from a single warrior (short version)
   constructor TKMUnitGroup.Create(aID: Cardinal; aCreator: TKMUnitWarrior);
   begin
     inherited Create;
  
positive.code: begin
    inherited;
  
    for I := 0 to Count - 1 do
    begin
      fMembers[I] := TKMUnitWarrior(fPlayers.GetUnitByID(Cardinal(fMembers[I])));
  
negative.code: end;
  
  
  //Load the Group from savegame
  constructor TKMUnitGroup.Create(LoadStream: TKMemoryStream);
  var
    I, aCount: Integer;
  