anchor.diff:  %%--------------------------------------------------------------------
   send_final_response(State, Status, Reason) ->
       send_final_response(State, Status, Reason, []).
  -send_final_response(#state{cpl_pid=none}=State, Status, Reason, EH) when is_integer(Status), is_list(Reason) ->
  +send_final_response(#state{cpl_pid = none} = State, Status, Reason, EH) when is_integer(Status), is_list(Reason) ->
       TH = State#state.callhandler,
       transactionlayer:send_response_handler(TH, Status, Reason, EH),
  -    State#state{completed=true};
  +    State#state{completed = true};
   send_final_response(State, Status, Reason, EH) when is_record(State, state), is_integer(Status), is_list(Reason) ->
       Response = {Status, Reason},
       if
  
positive.code: %% Returns : {noreply, State, Timeout} |
  %%           {stop, Reason, State}            (terminate/2 is called)
  %%--------------------------------------------------------------------
  handle_info({servertransaction_terminating, FromPid}, #state{callhandler_pid=FromPid}=State) when is_pid(FromPid) ->
      {CallHandlerPid, ForkPid} = {State#state.callhandler_pid, State#state.forkpid},
      logger:log(debug, "Appserver glue: received servertransaction_terminating from my CallHandlerPid ~p "
  	       "(ForkPid is ~p) - terminating (completed: ~p)", [CallHandlerPid, ForkPid, State#state.completed]),
      check_quit({stop, normal, State});
  
negative.code: %%           {stop, Reason, State}            (terminate/2 is called)
  %%--------------------------------------------------------------------
  handle_info({sipproxy_terminating, FromPid}, #state{forkpid=FromPid}=State) when is_pid(FromPid) ->
      #state{callhandler_pid	= CallHandlerPid,
  	   forkpid		= ForkPid
  	  } = State,
      logger:log(debug, "Appserver glue: received sipproxy_terminating from my ForkPid ~p (CallHandlerPid is ~p) "
  	       "- exiting normally (completed: ~p).", [ForkPid, CallHandlerPid, State#state.completed]),
      check_quit({stop, normal, State});
  