anchor.diff:  procedure TLibraryManager.updateDCD;
   var
     itm: TLibraryItem;
  -  i: NativeInt;
  +  i: Integer;
   begin
     if not DcdWrapper.available then exit;
  -  // note: new items are directly handled but removed ones still in cache until next cession.
  +  // note: new items are directly handled but removed ones still in cache until server restarts.
     for i := 0 to fCol.Count-1 do
     begin
       itm := TLibraryItem(fCol.Items[i]);
  
positive.code:     constructor create(aOwner: TComponent); override;
      destructor destroy; override;
      //
      procedure getLibFiles(const someAliases, aList: TStrings);
      procedure getLibSources(const someAliases, aList: TStrings);
      //
      procedure updateDCD;
    end;
  
negative.code: 
  (**
   * the caller gets all the paths were are located the lib sources in aList if someAliases is nil
   * otherwise the paths where are located the lib sources selected by the aliases in someAliases.
   *)
  procedure TLibraryManager.getLibSources(someAliases, aList: TStrings);
  var
    itm: TLibraryItem;
    i: Integer;
  begin
    for i := 0 to fCol.Count-1 do
    begin
  