anchor.diff:  
   
   function TKMUnitGroup.IsPositioned(const aLoc:TKMPoint; Dir: TKMDirection): Boolean;
  -var I: Integer; P: TKMPointExact; U: TKMUnitWarrior;
  +var
  +  I: Integer;
  +  P: TKMPointExact;
  +  U: TKMUnitWarrior;
   begin
     Result := True;
     for I := 0 to Count - 1 do
  
positive.code: 
  procedure TKMUnitGroups.Paint(const aRect: TKMRect);
  const
    Margin = 2;
  var
    I: Integer;
    growRect: TKMRect;
  begin
    //Add additional margin to compensate for units height
    growRect := KMRectGrow(aRect, Margin);
  
    for I := 0 to Count - 1 do
    if not Groups[I].IsDead and KMInRect(Groups[I].Members[0].PositionF, growRect) then
  
negative.code: 
  
  procedure TKMUnitGroup.ClearOffenders;
  var
    I: Integer;
    U: TKMUnit;
  begin
    for I := fOffenders.Count - 1 downto 0 do
    begin
  