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