anchor.diff:  -spec get_linked(lid()) -> set().
   
   get_linked(Lid) ->
  -    ets:lookup_element(?NT_LID, Lid, 4).
  +    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, 4),
  -    ets:update_element(?NT_LID, Lid1, {4, sets:add_element(Lid2, LinkedTo1)}),
  -    LinkedTo2 = ets:lookup_element(?NT_LID, Lid2, 4),
  -    ets:update_element(?NT_LID, Lid2, {4, sets:add_element(Lid1, LinkedTo2)}).
  +    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.
  
positive.code:     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, 4),
  		  NewLinked = sets:del_element(Lid, OldLinked),
  		  ets:update_element(?NT_LID, L, {4, NewLinked}),
  		  Unused
  	  end,
      sets:fold(Fun, unused, Linked).
  
negative.code:     %% Create new process' Lid
      Lid = lists:concat([ParentLid, ".", Children + 1]),
      %% Update parent info (increment children counter).
      ets:update_element(?NT_LID, ParentLid, {?children, Children + 1}),
      %% Insert child, flag and linking info.
      ets:insert(?NT_LID, {Lid, Pid, 0, sets:new()}),
      ets:insert(?NT_PID, {Pid, Lid}),
  