anchor.diff:  		{ok, T0} ->
   			T1 = Handle(T0),
   			T2 = riakc_map:update({<<"status">>, register}, fun(Obj) -> riakc_register:set(Status, Obj) end, T1),
  -			put(Pid, Bucket, Id, riakc_map:to_op(T2)),
  +			put(Pid, Bucket, Id, T2),
   			{ok, T2};
   		ErrorReason ->
   			ErrorReason
  
positive.code: 		Else             -> exit({bad_return_value, Else})
  	end.
  
  -spec open(pid(), bucket_and_type(), binary(), task()) -> ok.
  open(Pid, Bucket, Id, Task) ->
  	put(Pid, Bucket, Id, riakc_map:to_op(Task)).
  
  -spec rollback(pid(), bucket_and_type(), binary()) -> {ok, task()} | {error, any()}.
  rollback(Pid, Bucket, Id) ->
  
negative.code: -define(DONE, <<"done">>).
  
  %% Types
  -type task() :: riakc_map:crdt_map().
  
  -export_type([task/0]).
  
  