anchor.diff:  handle_modified(Exit, #state{commit_delay = Delay} = State) ->
       ?error("Modify handler of a transaction process terminated abnormally: ~p",
           [Exit]),
  -    schedule_commit(Delay, modify_async(State#state{
  +    schedule_terminate(schedule_commit(Delay, modify_async(State#state{
           modify_handler_pid = undefined
  -    })).
  +    }))).
   
   %%--------------------------------------------------------------------
   %% @private
  
positive.code: %%--------------------------------------------------------------------
  -spec handle_modified(Exit :: any(), state()) -> state().
  handle_modified({modified, false, Data}, #state{} = State) ->
      handle_modified(
          {modified, {true, undefined}, Data}, State
      );
  handle_modified({modified, {true, NextChanges}, Data}, #state{
      module = Module,
      changes = Changes,
  
negative.code:     modify_handler_pid :: undefined | pid(),
      % a pid of the commit handler process
      commit_handler_pid :: undefined | pid(),
      % a reference to a timer expected to trigger terminate
      terminate_timer_ref :: undefined | reference(),
      % a reference to a message expected to trigger commit
      commit_msg_ref :: undefined | reference(),
      % a reference to a message expected to trigger terminate
      terminate_msg_ref :: undefined | reference(),
      commit_delay :: timeout(),
      idle_timeout :: timeout()
  