anchor.diff:      send_name(HSData),
       recv_status(HSData),
       {PreOtherFlags,ChallengeA} = recv_challenge(HSData),
  -    {ThisFlags,OtherFlags} = adjust_flags(PreThisFlags,
  -                                          PreOtherFlags,
  -                                          RejFlgs),
  -    NewHSData = HSData#hs_data{this_flags = ThisFlags,
  -			       other_flags = OtherFlags, 
  +    ChosenFlags = adjust_flags(PreThisFlags, PreOtherFlags),
  +    NewHSData = HSData#hs_data{this_flags = ChosenFlags,
  +			       other_flags = ChosenFlags,
   			       other_started = false}, 
       check_dflags(NewHSData, EDF),
       MyChallenge = gen_challenge(),
  
positive.code:     "UNKNOWN".
  
  
  remove_flag(Flag, Flags) ->
      case Flags band Flag of
  	0 ->
  	    Flags;
  	_ ->
  	    Flags - Flag
      end.
  
  adjust_flags(ThisFlags, OtherFlags, RejectFlags) ->
      case (?DFLAG_PUBLISHED band ThisFlags) band OtherFlags of
  	0 ->
  	    {remove_flag(?DFLAG_PUBLISHED, ThisFlags),
  	     remove_flag(?DFLAG_PUBLISHED, OtherFlags)};
  	_ ->
  	    {ThisFlags, OtherFlags band (bnot RejectFlags)}
      end.
  
  publish_flag(hidden, _) ->
      0;
  
negative.code:     {PreOtherFlags,Node,Version} = recv_name(HSData0),
      EDF = erts_internal:get_dflags(),
      PreThisFlags = make_this_flags(ReqType, AddFlgs, RejFlgs, Node, EDF),
      ChosenFlags = adjust_flags(PreThisFlags, PreOtherFlags),
      HSData = HSData0#hs_data{this_flags=ChosenFlags,
  			     other_flags=ChosenFlags,
  			     other_version=Version,
  			     other_node=Node,
  			     other_started=true,
  