anchor.diff:      Res = case start_server(Options) of
   	      {ok, Pid} ->
   		  apply_fun(Pid, DisplayWarnings, Fun);
  -	      {error, Reason} ->
  -		  {error, Reason}
  +	      {error, _Reason} = Error ->
  +		  Error
   	  end,
       process_flag(trap_exit, TrapExit),
       Res.
  
positive.code: 
  %% Start main window process
  -spec start(options()) -> {ok, window_pid()} | {error, reason()}.
  start(Options)when is_list(Options)  ->
      case start_link(Options) of
  	{ok, WinPid} ->
  	    unlink(WinPid),
  	    {ok, WinPid};
  	Other->
  	    Other
      end.
  
  %% Start main window process with wx debugging enabled
  -spec debug() ->  {ok, window_pid()} | {error, reason()}.
  debug() ->
      start([{wx_debug, 2}]).
  
  %% Start main window process with options
  -spec start_link(options()) -> {ok, window_pid() | {error, reason()}}.
  start_link(Options) when is_list(Options) ->
      case reltool_sys_win:start_link(Options) of
          {ok, WinPid} ->
              {ok, WinPid};
          {error, Reason} ->
              {error, lists:flatten(io_lib:format("~p", [Reason]))}
      end.
  
negative.code: 	{ok, Warnings} ->
  	    [io:format("~p: ~s\n", [?APPLICATION, W]) || W <- Warnings],
  	    apply_fun(Pid, false, Fun);
  	{error, _Reason} = Error ->
  	    stop(Pid),
  	    Error
      end.
  
  %% Get status about the configuration
  -type warning() :: string().
  -spec get_status(server()) -> {ok, [warning()]} | {error, reason()}.
  get_status(PidOrOptions)
    when is_pid(PidOrOptions); is_list(PidOrOptions) ->
      eval_server(PidOrOptions, false,
  		fun(Pid) -> reltool_server:get_status(Pid) end).
  
  %% Get reltool configuration
  -spec get_config(server()) -> {ok, config()} | {error, reason()}.
  