anchor.diff:  
   %% @doc Read the storage schedule and go to idle.
   init([]) ->
  -    Schedule = read_storage_schedule(),
  +    Schedule = read_gc_schedule(),
       SchedState = schedule_next(#state{schedule=Schedule},
                                  calendar:universal_time()),
       ok = rts:check_bucket_props(?STORAGE_BUCKET),
  
positive.code:                            current=undefined,
                             batch=[]},
      {reply, ok, idle, NewState};
  calculating(_, _From, State) ->
      {reply, ok, calculating, State}.
  
  paused(status, From, State) ->
      {reply, {ok, {_, Status}}, _, State} = calculating(status, From, State),
      {reply, {ok, {paused, Status}}, paused, State};
  paused(resume_batch, _From, State) ->
      _ = lager:info("Resuming storage calculation"),
      gen_fsm:send_event(?SERVER, continue),
      {reply, ok, calculating, State};
  paused(cancel_batch, From, State) ->
      calculating(cancel_batch, From, State);
  paused(_, _From, State) ->
      {reply, ok, paused, State}.
  
  
negative.code:                            last=Current,
                             current=undefined},
      {next_state, idle, NewState};
  deleting(continue, State) ->
      %% more to do yet
      %% @TODO Continue file deletion
      %% NewState = delete_next_file(State),
      NewState = State,
      gen_fsm:send_event(?SERVER, continue),
      {next_state, calculating, NewState};
  deleting(_, State) ->
      {next_state, calculating, State}.
  
  paused(_, State) ->
  