anchor.diff:      Httpd = disco:get_setting("DISCO_HTTPD"),
       Type = filename:basename(string:sub_word(Httpd, 1, $\ )),
       Body = make_config(Type, Nodes, Port, DiscoPort, PidFile),
  -    ok = file:write_file(Config, Body),
  -    case whereis(disco_proxy) of
  -        undefined -> ok;
  -        Pid -> exit(Pid, restart)
  -    end.
  +    ok = file:write_file(Config, Body).
   
   proxy_monitor(Pid) ->
       case catch string:str(os:cmd(["ps -p", Pid]), Pid) of
  
positive.code:         ignore;
      true ->
          error_logger:info_report({"Disco proxy enabled"}),
          {ok, spawn_link(fun() ->
              process_flag(trap_exit, true),
              register(disco_proxy, self()),
              proxy_monitor(start_proxy())
          end)}
      end.
  
  -spec update_nodes([nonempty_string()]) -> 'ok'.
  update_nodes(Nodes) ->
      update_nodes(Nodes, disco:get_setting("DISCO_PROXY_ENABLED")).
  update_nodes(_Nodes, "") ->
      ok;
  update_nodes(Nodes, _) ->
      DiscoPort = disco:get_setting("DISCO_PORT"),
      Port = disco:get_setting("DISCO_PROXY_PORT"),
      PidFile = disco:get_setting("DISCO_PROXY_PID"),
  
negative.code:         _ ->
              error_logger:warning_report(
                  {"Could not start proxy (PID file not found or empty)", Out}),
              exit(proxy_init_failed)
      end.
  
  kill_proxy() ->
  