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