anchor.diff:  add_node_int(_Options, no) ->
       {error, cluster_not_enabled};
   add_node_int(Options, ok) ->
  -    couch_log:notice("add node: ~p~n", [Options]),
  +    couch_log:notice("add node_int: ~p~n", [Options]),
       ErlangCookie = erlang:get_cookie(),
   
       % POST to nodeB/_setup
  
positive.code:             enable_cluster_http(Options)
      end.
  
  enable_cluster_http(Options) ->
      % POST to nodeB/_setup
      RequestOptions = [
          {basic_auth, {
              binary_to_list(couch_util:get_value(remote_current_user, Options)),
              binary_to_list(couch_util:get_value(remote_current_password, Options))
          }}
      ],
  
      Body = ?JSON_ENCODE({[
          {<<"action">>, <<"enable_cluster">>},
  
negative.code:     case Port of
          undefined ->
              ok;
          Port when is_binary(Port) ->
              config:set("chttpd", "port", binary_to_list(Port));
          Port when is_integer(Port) ->
              config:set_integer("chttpd", "port", Port)
      end,
      couch_log:notice("Enable Cluster: ~p~n", [Options]).
      %cluster_state:set(enabled).
  