anchor.diff:      ets:delete(?NT_PID, Pid),
       %% Delete all occurrences of Lid in other process' link-sets.
       Fun = fun(L, Unused) ->
  -		  OldLinked = ets:lookup_element(?NT_LID, L, ?linkedps),
  +		  OldLinked = get_linked(L),
   		  NewLinked = sets:del_element(Lid, OldLinked),
  -		  ets:update_element(?NT_LID, L, {?linkedps, NewLinked}),
  +                  put_linked(L, NewLinked),
   		  Unused
   	  end,
       sets:fold(Fun, unused, Linked).
  
positive.code: -spec get_linked(lid()) -> set().
  
  get_linked(Lid) ->
      ets:lookup_element(?NT_LID, Lid, ?linkedps).
  
  %% Update the linking information of the two pids.
  -spec link(lid(), lid()) -> boolean().
  
  link(Lid1, Lid2) ->
      LinkedTo1 = ets:lookup_element(?NT_LID, Lid1, ?linkedps),
      ets:update_element(?NT_LID, Lid1, {?linkedps,
                                         sets:add_element(Lid2, LinkedTo1)}),
      LinkedTo2 = ets:lookup_element(?NT_LID, Lid2, ?linkedps),
      ets:update_element(?NT_LID, Lid2, {?linkedps,
                                         sets:add_element(Lid1, LinkedTo2)}).
  
  %% "Register" a new process spawned by the process with LID `ParentLid`.
  %% Pid is the new process' erlang pid.
  
negative.code: 
  %% The following definitions refer to the ?NT_LID table.
  -define(children, 3).
  -define(linked, 4).
  
  %%%----------------------------------------------------------------------
  %%% Types
  