anchor.diff:  -spec maybe_cleanup_csbucket(riak_client(),
                                binary(),
                                {ok, riakc_obj()}|{error, term()},
  -                             binary()) -> ok.
  +                             binary()) -> ok | {error, term()}.
   maybe_cleanup_csbucket(RcPidForOneBucket, BucketName, {ok, RiakObj}, Timestamp) ->
       case riakc_obj:get_values(RiakObj) of
           [?FREE_BUCKET_MARKER] ->
  
positive.code:     _ = 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),
                    Acc0
            end,
      _ = riak_cs_bucket:fold_all_buckets(Fun, [], RcPid),
  
negative.code:                                           [Count]);
                  Error ->
                      lager:warning("Error in deleting old uploads: ~p~n", [Error]),
                      io:format("Error in deleting old uploads: ~p <<< ~n", [Error]),
                      Error
              end;
  
          [<<>>] -> %% tombstone, can't happen
  