anchor.diff:      _ = lager:info("cleaning up with timestamp ~s", [Timestamp]),
       _ = io:format("cleaning up with timestamp ~s", [Timestamp]),
       Fun = fun(RcPidForOneBucket, BucketName, GetResult, Acc0) ->
  -                  _ = maybe_cleanup_csbucket(RcPidForOneBucket, BucketName,
  -                                             GetResult, Timestamp),
  +                  ok = maybe_cleanup_csbucket(RcPidForOneBucket, BucketName,
  +                                              GetResult, Timestamp),
                     Acc0
             end,
       _ = riak_cs_bucket:fold_all_buckets(Fun, [], RcPid),
  
positive.code: maybe_cleanup_csbucket(_, _, {error, notfound}, _) ->
      ok;
  maybe_cleanup_csbucket(_, BucketName, {error, _} = Error, _) ->
      io:format("Error: ~p on processing ~s", [Error, BucketName]),
      Error.
  
negative.code: -spec maybe_cleanup_csbucket(riak_client(),
                               binary(),
                               {ok, riakc_obj()}|{error, term()},
                               binary()) -> ok | {error, term()}.
  maybe_cleanup_csbucket(RcPidForOneBucket, BucketName, {ok, RiakObj}, Timestamp) ->
      case riakc_obj:get_values(RiakObj) of
          [?FREE_BUCKET_MARKER] ->
  