anchor.diff:  maybe_cleanup_csbucket(_, _, {error, notfound}, _) ->
       ok;
   maybe_cleanup_csbucket(_, BucketName, {error, _} = Error, _) ->
  -    io:format("Error: ~p on processing ~s", [Error, BucketName]),
  +    lager:error("~p on processing ~s", [Error, BucketName]),
  +    io:format("Error: ~p on processing ~s\n", [Error, BucketName]),
       Error.
  
positive.code: -spec maybe_cleanup_csbucket(riak_client(),
                               binary(),
                               {ok, riakc_obj()}|{error, term()},
                               binary()) -> ok.
  maybe_cleanup_csbucket(RcPidForOneBucket, BucketName, {ok, RiakObj}, Timestamp) ->
      case riakc_obj:get_values(RiakObj) of
          [?FREE_BUCKET_MARKER] ->
  
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
  