anchor.diff:      end.
   
   clear(Node) ->
  -    try
  -        Response = remote(Node, riak_core_claimant, clear, []),
  -        case Response of
  -            ok -> [{control, [{success, ok}]}];
  -            _ -> [{control, [{error, unkown}]}]
  -        end
  -    catch
  -        Exception:Reason ->
  -            Error = list_to_binary(io_lib:format("~p:~p", [Exception,Reason])),
  -            [{control, [{error, Error}]}]
  -    end.
  +    handle_error(fun () ->
  +                         Response = remote(Node, riak_core_claimant, clear, []),
  +                         case Response of
  +                             ok -> [{control, [{success, ok}]}];
  +                             _ -> [{control, [{error, unkown}]}]
  +                         end
  +                 end).
   
   status(Node) ->
       {ok, Ring} = remote(Node, riak_core_ring_manager, get_my_ring, []),
  
positive.code:         {down, Down}]}].
  
  ringready(Node) ->
      try
          Response = remote(Node, riak_core_status, ringready, []),
          case Response of
              {ok, Nodes} ->
                  [{control, [{ready, true},{nodes, Nodes}]}];
              {error, {different_owners, N1, N2}} ->
                  [{control, [{ready, false},{error, [{different_owners, [N1, N2]}]}]}];
              {error, {nodes_down, Down}} ->
                  [{control, [{ready, false},{error, [{nodes_down, Down}]}]}]
          end
      catch
          Exception:Reason ->
              Error = list_to_binary(io_lib:format("~p:~p", [Exception,Reason])),
              [{control, [{error, Error}]}]
      end.
  
  datetime_str({_Mega, _Secs, _Micro}=Now) ->
      datetime_str(calendar:now_to_datetime(Now));
  
negative.code:         leave(Node, Node1).
  
  leave(Node, Node1) ->
      handle_error(fun () ->
                           Response = remote(Node, riak_core, remove, [Node1]),
                           case Response of
                               ok ->
                                   [{control, [{success, ok}]}];
                               {error, R} ->
                                   [{control, [{error, R}]}]
                           end
                   end).
  
  staged_leave(Node) ->
      staged_leave(Node, Node).
  
  staged_leave(Node, Node1) ->
      handle_error(fun () ->
                           Response = remote(Node, riak_core_claimant, leave_member, [Node1]),
                           case Response of
                               ok ->
                                   [{control, [{success, ok}]}];
                               {error, R} ->
                                   [{control, [{error, R}]}]
                           end
                   end).
  
  plan(Node) ->
      Response = remote(Node, riak_core_claimant, plan, []),
  