anchor.diff:  register() ->
     case registration_body() of
       {ok, Body} ->
  -      case autocluster_httpc:post(autocluster_config:get(consul_scheme),
  +      case autocluster_httpc:put(autocluster_config:get(consul_scheme),
                                     autocluster_config:get(consul_host),
                                     autocluster_config:get(consul_port),
                                     [v1, agent, service, register],
  
positive.code: -spec maybe_create_session(string(), pos_integer()) -> {ok,string()} | {error, string()}.
  maybe_create_session(Who, N) when N > 0 ->
      case create_session(Who, autocluster_config:get(consul_svc_ttl)) of
          {error, "500"} -> 
  	    autocluster_log:warning("Error 500 while creating a Consul session, " ++
  					" ~p retries left", [N]),
  	    timer:sleep(2000),
  
negative.code: -spec send_health_check_pass() -> ok.
  send_health_check_pass() ->
    Service = string:join(["service", service_id()], ":"),
    case autocluster_httpc:put(autocluster_config:get(consul_scheme),
                               autocluster_config:get(consul_host),
                               autocluster_config:get(consul_port),
                               [v1, agent, check, pass, Service],
  