anchor.diff:    {$ENDIF}
   end;
   
  -procedure TCEDcdWrapper.restartServer;
  -begin
  -  if not fAvailable then exit;
  -  //
  +procedure TCEDcdWrapper.waitClient;
  +begin
  +  while fClient.Running do;
   end;
   
   procedure TCEDcdWrapper.addImportFolder(const aFolder: string);
   begin
     if not fAvailable then exit;
     //
  -  while fClient.Running do sleep(1);
  +  if fImportCache.IndexOf(aFolder) <> -1 then exit;
  +  fImportCache.Add(aFolder);
     fClient.Parameters.Clear;
     fClient.Parameters.Add('-I' + aFolder);
     fClient.Execute;
  +  waitClient;
   end;
   
   procedure TCEDcdWrapper.getCallTip(out tips: string);
  
positive.code:   fTempLines.Assign(fDoc.Lines);
    fTempLines.SaveToFile(fDoc.tempFilename);
    //
    terminateClient;
    fClient.Parameters.Clear;
    fClient.Parameters.Add('-l');
    fClient.Parameters.Add('-c');
    fClient.Parameters.Add(intToStr(fDoc.SelStart - 1));
    fClient.Parameters.Add(fDoc.tempFilename);
    fClient.Execute;
    //
    str := 'a';
    setlength(str, 256);
  
negative.code:   fTempLines.Assign(fDoc.Lines);
    fTempLines.SaveToFile(fDoc.tempFilename);
    //
    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;
  