anchor.diff:  integer_to_list(I, 10) ->
       erlang:integer_to_list(I);
   integer_to_list(I, Base) 
  -  when is_integer(I), is_integer(Base), Base >= 2, Base =< 1+$Z-$A+10 ->
  +  when erlang:is_integer(I), erlang:is_integer(Base),
  +       Base >= 2, Base =< 1+$Z-$A+10 ->
       if I < 0 ->
   	    [$-|integer_to_list(-I, Base, [])];
          true ->
  
positive.code: 	    erlang:error(badarg, [N, M, F, A])
      end,
      case catch gen_server:call({net_kernel,N},
  			       {spawn_link,M,F,A,group_leader()},
  			       infinity) of
  	Pid when is_pid(Pid) ->
  	    Pid;
  	Error ->
  	    case remote_spawn_error(Error, {link, N, M, F, A, []}) of
  
negative.code: 
  list_to_integer_sign([$-|[_|_]=L], Base) ->
      case list_to_integer(L, Base, 0) of
  	I when erlang:is_integer(I) ->
  	    -I;
  	I ->
  	    I
  