anchor.diff:    fTempLines.Assign(fDoc.Lines);
     fTempLines.SaveToFile(fDoc.tempFilename);
     //
  -  terminateClient;
     fClient.Parameters.Clear;
     fClient.Parameters.Add('-c');
     fClient.Parameters.Add(intToStr(fDoc.SelStart - 1));
     fClient.Parameters.Add(fDoc.tempFilename);
     fClient.Execute;
  +  waitClient;
     //
     fTempLines.LoadFromStream(fClient.Output);
     if fTempLines.Count = 0 then exit;
  
positive.code:   {$ENDIF}
  end;
  
  procedure TCEDcdWrapper.restartServer;
  begin
    if not fAvailable then exit;
    //
  end;
  
  procedure TCEDcdWrapper.addImportFolder(const aFolder: string);
  begin
    if not fAvailable then exit;
    //
    while fClient.Running do sleep(1);
    fClient.Parameters.Clear;
    fClient.Parameters.Add('-I' + aFolder);
    fClient.Execute;
  end;
  
  procedure TCEDcdWrapper.getCallTip(out tips: string);
  
negative.code:   TCEDcdWrapper = class(TWritableLfmTextComponent, ICEProjectObserver, ICEMultiDocObserver)
    private
      fTempLines: TStringList;
      fImportCache: TStringList;
      //fPortNum: Word;
      fServerWasRunning: boolean;
      fClient, fServer: TProcess;
  