anchor.diff:      dmdproc.Parameters.Add('-o-');
       dmdproc.Parameters.Add('-X');
       dmdproc.Parameters.Add('-Xf' + jsf);
  -    // projects add.sources and I.
  +    // projects additional sources and I and libman aliases
       if fProj <> nil then
       begin
         dmdProc.CurrentDirectory := extractFilePath(fProj.fileName);
  
positive.code:   ln: PInt64;
    nme, knd: string;
    i: NativeInt;
    itm: TCollectionItem;
    itmt: TLibraryItem;
    allALiases: TStringList;
  
    // recursively display members, without master categories.
    procedure digMembers(const srcDt: TJsonData; const srcNd: TTreeNode);
  
negative.code:         dmdproc.Parameters.Add('-I' + fProj.getAbsoluteSourceName(i));
        for nme in fProj.currentConfiguration.pathsOptions.Includes do
          dmdproc.Parameters.Add('-I' + nme);
        with CEMainForm do begin
          Librarymanager.getAdditionalSources( fProj.LibraryAliases, dmdproc.Parameters);
          Librarymanager.getAdditionalImport( fProj.LibraryAliases, dmdproc.Parameters);
        end;
      end;
      //
  