anchor.diff:  interface
   
   uses
  -  Classes, SysUtils, FileUtil, process, menus,
  +  Classes, SysUtils, FileUtil, process, menus, ce_processes,
     ce_common, ce_writableComponent, ce_interfaces, ce_observer, ce_inspectors;
   
   type
   
     TCEToolItem = class(TCollectionItem)
     private
  -    fProcess: TCheckedAsyncProcess;
  +    fProcess: TCEProcess;
       fExecutable: TCEFilename;
       fWorkingDir: TCEPathname;
       fShowWin: TShowWindowOptions;
  
positive.code:   fParameters.Free;
    fChainAfter.Free;
    fChainBefore.Free;
    killProcess(fProcess);
    inherited;
  end;
  
  
negative.code:   getMessageDisplay(fMsgs);
    lst := TStringList.Create;
    try
      fProcess.getFullLines(lst);
      for str in lst do
        fMsgs.message(str, nil, amcMisc, amkAuto);
    finally
  