anchor.diff:  %    io:format(">>>>> find_name_res Result ~p~n",[Result]),
   %    io:format(">>>>> find_name_res get() ~p~n",[get()]),
       unlink(Pid),
  -    exit(Pid, normal),
  +    Pid ! kill,
       Wait = get(whereis_name),
       NewWait = lists:delete({Pid, From},Wait),
       put(whereis_name, NewWait),
  
positive.code: 	    ToPid ! Msg
      end,
      unlink(Pid),
      exit(Pid, normal),
      Wait = get(send),
      NewWait = lists:delete({Pid, From, Name, Msg},Wait),
      put(send, NewWait),
  
negative.code: handle_cast({registered_names_res, Result, Pid, From}, S) ->
  %    io:format(">>>>> registered_names_res Result ~p~n",[Result]),
      unlink(Pid),
      Pid ! kill,
      Wait = get(registered_names),
      NewWait = lists:delete({Pid, From},Wait),
      put(registered_names, NewWait),
  