anchor.diff:    str := 'a';
     setlength(str, 256);
     i := fClient.Output.Read(str[1], 256);
  +  {$IFDEF LINUX}
  +  fClient.Terminate(0);
  +  {$ENDIF}
     setLength(str, i);
     if str <> '' then
     begin
  
positive.code:   //
    aComment := '';
    fTempLines.LoadFromStream(fClient.Output);
    for i := 0 to fTempLines.Count-1 do
      aComment += ReplaceStr(fTempLines.Strings[i], '\n', LineEnding);
  
  
negative.code:   fClient.Parameters.Clear;
    fClient.Parameters.Add('--shutdown');
    fClient.Execute;
    {$IFDEF LINUX}
    fClient.Terminate(0);
    {$ENDIF}
  end;
  
  procedure TCEDcdWrapper.restartServer;
  