anchor.diff:           get_or_create_process/1,
            get_process/1,
            get_heartbeating_nodes/1,
  -         mk_gproc_name/1]).
  +         mk_gproc_name/1,
  +         mk_gproc_addr/1]).
   
   %% Supervisor callbacks
   -export([init/1]).
  
positive.code:         Pid -> Pid
      end.
  
  get_process(NodeRef) ->
      GprocName = mk_gproc_name(NodeRef),
      case catch gproc:lookup_pid({n,l,GprocName}) of
          {'EXIT', _} ->
              undefined;
  
negative.code: mk_gproc_name({OrgId, NodeName}) when is_binary(OrgId) andalso is_binary(NodeName) ->
      {heartbeat, OrgId, NodeName}.
  
  -spec mk_gproc_addr(binary()) -> {'addr', binary()}.
  mk_gproc_addr(Addr) when is_binary(Addr) ->
      {addr, Addr}.
  
  %% ------------------------------------------------------------------
  %% supervisor Function Definitions
  %% ------------------------------------------------------------------
  