anchor.diff:  dbg_opts(Name, Opts) ->
       case catch sys:debug_options(Opts) of
   	{'EXIT',_} ->
  -	    format("~p: ignoring erroneous debug options - ~p~n",
  +	    format("~tp: ignoring erroneous debug options - ~tp~n",
   		   [Name, Opts]),
   	    [];
   	Dbg ->
  
positive.code: print_event(Dev, {in, Msg}, Name) ->
      case Msg of
  	{'$gen_call', {From, _Tag}, Call} ->
  	    io:format(Dev, "*DBG* ~p got call ~p from ~w~n",
  		      [Name, Call, From]);
  	{'$gen_cast', Cast} ->
  	    io:format(Dev, "*DBG* ~p got cast ~p~n",
  		      [Name, Cast]);
  	_ ->
  	    io:format(Dev, "*DBG* ~p got ~p~n", [Name, Msg])
      end;
  print_event(Dev, {out, Msg, To, State}, Name) ->
      io:format(Dev, "*DBG* ~p sent ~p to ~w, new state ~w~n",
  	      [Name, Msg, To, State]);
  print_event(Dev, {noreply, State}, Name) ->
      io:format(Dev, "*DBG* ~p new state ~w~n", [Name, State]);
  print_event(Dev, Event, Name) ->
      io:format(Dev, "*DBG* ~p dbg  ~p~n", [Name, Event]).
  
  %%% ---------------------------------------------------
  %%% Terminate the server.
  
negative.code: 	    _ ->
  		Reason
  	end,    
      format("** wx object server ~tp terminating \n"
             "** Last message in was ~tp~n"
             "** When Server state == ~tp~n"
             "** Reason for termination == ~n** ~tp~n",
  	   [Name, Msg, State, Reason1]),
      sys:print_log(Debug),
      ok.
  