anchor.diff:    //
     aComment := '';
     fTempLines.LoadFromStream(fClient.Output);
  +  {$IFDEF LINUX}
  +  fClient.Terminate(0);
  +  {$ENDIF}
     for i := 0 to fTempLines.Count-1 do
       aComment += ReplaceStr(fTempLines.Strings[i], '\n', LineEnding);
   
  
positive.code:   fClient.Parameters.Clear;
    fClient.Parameters.Add('--shutdown');
    fClient.Execute;
  end;
  
  procedure TCEDcdWrapper.restartServer;
  
negative.code:   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
  