anchor.diff:  begin
     AProgressCallback.NextStage('Loading legacy objects ... ');
   
  +
     objects_txt := TTextResource.Create(OBJECT_LIST);
     objects_txt.Delimiter := TTextResource.TDelimiter.Space;
  -
   
     try
       objects_txt.Load(ResourceLoader);
  
positive.code:     if obj_id < 0 then
      begin
        Continue; //no index property or invalid
      end;
  
      if obj.IndexOfName('types')<0 then
  
negative.code:       AFullIdToDefMap.Remove(full_id); //delete merged data
      end;
    end;
  
    objects_names.Free;
  end;
  
  procedure TObjectsManager.HandleInteritanceObjectTemplate(
  