anchor.diff:      case Port of
           undefined ->
               ok;
  -        Port ->
  -            config:set("chttpd", "port", integer_to_list(Port))
  +        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).
  
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: add_node_int(_Options, no) ->
      {error, cluster_not_enabled};
  add_node_int(Options, ok) ->
      couch_log:notice("add node_int: ~p~n", [Options]),
      ErlangCookie = erlang:get_cookie(),
  
      % POST to nodeB/_setup
  