anchor.diff:  
     TKMUnitGroups = class
     private
  -    fGroups: TList;
  +    fGroups: TKMList;
   
       function GetCount: Integer;
       function GetGroup(aIndex: Integer): TKMUnitGroup;
  
positive.code: begin
    inherited Create;
  
    fGroups := TList.Create;
  end;
  
  
  
negative.code:   if FREE_POINTERS
    and Groups[I].IsDead
    and (Groups[I].fPointerCount = 0) then
      fGroups.Delete(I);
  
    for I := 0 to Count - 1 do
    if not Groups[I].IsDead then
  