anchor.diff:  maybe_utc(Time, true) -> {utc, Time};
   maybe_utc(Time, _) -> {local, calendar:universal_time_to_local_time(Time)}.
   
  -format(IOMod, String)       -> format(IOMod, String, []).
  -format(io_lib, String, Args) -> io_lib:format(String, Args);
  -format(io, String, Args) -> io:format(user, String, Args).
  -
  -format_report(Rep) when is_list(Rep) ->
  -    case string_p(Rep) of
  +format_term(Term) when is_list(Term) ->
  +    case string_p(Term) of
   	true ->
  -	    io_lib:format("~s~n",[Rep]);
  -	_ ->
  -	    format_rep(Rep)
  -    end;
  -format_report(Rep) ->
  -    io_lib:format("~p~n",[Rep]).
  -
  -format_rep([{Tag,Data}|Rep]) ->
  -    io_lib:format("    ~p: ~p~n",[Tag,Data]) ++ format_rep(Rep);
  -format_rep([Other|Rep]) ->
  -    io_lib:format("    ~p~n",[Other]) ++ format_rep(Rep);
  -format_rep(_) ->
  +	    [{"~s\n",[Term]}];
  +	false ->
  +	    format_term_list(Term)
  +    end;
  +format_term(Term) ->
  +    [{"~p\n",[Term]}].
  +
  +format_term_list([{Tag,Data}|T]) ->
  +    [{"    ~p: ~p\n",[Tag,Data]}|format_term_list(T)];
  +format_term_list([Data|T]) ->
  +    [{"    ~p\n",[Data]}|format_term_list(T)];
  +format_term_list([]) ->
  +    [];
  +format_term_list(_) ->
  +    %% Continue to allow non-proper lists for now.
  +    %% FIXME: Remove this clause in OTP 19.
       [].
  -
  -add_node(X, Pid) when is_atom(X) ->
  -    add_node(atom_to_list(X), Pid);
  -add_node(X, Pid) when node(Pid) =/= node() ->
  -    lists:concat([X,"** at node ",node(Pid)," **~n"]);
  -add_node(X, _) ->
  -    X.
   
   string_p([]) ->
       false;
  
positive.code: 
  handle_call(_Query, State) -> {ok, {error, bad_query}, State}.
  
  % unfortunately, we can't unlink from User - links are not counted!
  %    if pid(User) -> unlink(User); true -> ok end,
  terminate(install_prev, _State) ->
      [];
  terminate(_Reason, {_User, PrevHandler}) ->
      {error_logger_tty_h, PrevHandler}.
  
  code_change(_OldVsn, State, _Extra) ->
      {ok, State}.
  
  %%% ------------------------------------------------------
  %%% Misc. functions.
  
negative.code: string_p1([]) -> true;
  string_p1(_) ->  false.
  
  write_time({utc,{{Y,Mo,D},{H,Mi,S}}},Type) ->
      io_lib:format("~n=~s==== ~p-~s-~p::~s:~s:~s UTC ===~n",
  		  [Type,D,month(Mo),Y,t(H),t(Mi),t(S)]);
  