anchor.diff:  	    erlang:error(badarg, [N, M, F, A])
       end,
       case catch gen_server:call({net_kernel,N},
  -			       {spawn,M,F,A,group_leader()},
  +			       {spawn,M,F,A,erlang:group_leader()},
   			       infinity) of
  -	Pid when is_pid(Pid) ->
  +	Pid when erlang:is_pid(Pid) ->
   	    Pid;
   	Error ->
   	    case remote_spawn_error(Error, {no_link, N, M, F, A, []}) of
  
positive.code:       Module :: module(),
        Function :: atom(),
        Args :: [term()].
  spawn_link(N,M,F,A) when N =:= node(), is_atom(M), is_atom(F), is_list(A) ->
      spawn_link(M,F,A);
  spawn_link(N,M,F,A) when is_atom(N), is_atom(M), is_atom(F) ->
      case is_well_formed_list(A) of
  	true ->
  	    ok;
  
negative.code: 	    erlang:error(badarg, [N, M, F, A])
      end,
      case catch gen_server:call({net_kernel,N},
  			       {spawn_link,M,F,A,erlang:group_leader()},
  			       infinity) of
  	Pid when erlang:is_pid(Pid) ->
  	    Pid;
  	Error ->
  	    case remote_spawn_error(Error, {link, N, M, F, A, []}) of
  