anchor.diff:      NewHSData = HSData#hs_data{this_flags = ThisFlags,
   			       other_flags = OtherFlags, 
   			       other_started = false}, 
  -    check_dflag_xnc(NewHSData),
  +    check_dflags(NewHSData),
       MyChallenge = gen_challenge(),
       {MyCookie,HisCookie} = get_cookies(Node),
       send_challenge_reply(NewHSData,MyChallenge,
  
positive.code: 		    How = "aborted"
  	    end,
  	    error_msg("** ~w: Connection attempt ~s node ~w ~s "
  		      "since it cannot handle extended ~s. "
  		      "**~n", [node(), Dir, Node, How, What]),
  	    ?shutdown2(Node, {check_dflag_xnc_failed, What})
      end.
  
  
  
negative.code: %% Check that both nodes can handle the same types of extended
  %% node containers. If they can not, abort the connection.
  %%
  check_dflags(#hs_data{other_node = Node,
                        other_flags = OtherFlags,
                        other_started = OtherStarted} = HSData) ->
  
      Mandatory = [{?DFLAG_EXTENDED_REFERENCES, "EXTENDED_REFERENCES"},
                   {?DFLAG_EXTENDED_PIDS_PORTS, "EXTENDED_PIDS_PORTS"}],
      Missing = lists:filtermap(fun({Bit, Str}) ->
                                        case Bit band OtherFlags of
                                            Bit -> false;
                                            0 -> {true, Str}
                                        end
                                end,
                                Mandatory),
      case Missing of
          [] ->
              ok;
          _ ->
  	    case OtherStarted of
  		true ->
  		    send_status(HSData, not_allowed),
  