anchor.diff:  
   
   procedure TKMUnitGroup.OrderLinkTo(aTargetGroup: TKMUnitGroup; aClearOffenders: Boolean);
  -var U: TKMUnit;
  +var
  +  U: TKMUnit;
   begin
     if aClearOffenders and CanTakeOrders then ClearOffenders;
   
  
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:   if (U <> nil) and (U is TKMUnitWarrior) then
    for I := 0 to Count - 1 do
      if Groups[I].HitTest(X,Y) then
        Exit(Groups[I]);
  end;
  
  
  