anchor.diff:  -spec get_server(window_pid()) -> {ok, server_pid()} | {error, reason()}.
   get_server(WinPid) ->
       case reltool_sys_win:get_server(WinPid) of
  -        {ok, ServerPid} ->
  -            {ok, ServerPid};
  +        {ok, _ServerPid} = OK ->
  +            OK;
           {error, Reason} ->
               {error, lists:flatten(io_lib:format("~p", [Reason]))}
       end.
  
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: %%
  %% %CopyrightBegin%
  %%
  %% Copyright Ericsson AB 2009-2011. All Rights Reserved.
  %%
  %% The contents of this file are subject to the Erlang Public License,
  %% Version 1.1, (the "License"); you may not use this file except in
  