anchor.diff:  %% 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},
  +handle_info({servertransaction_terminating, FromPid}, #state{callhandler_pid = FromPid} = State) when is_pid(FromPid) ->
  +    #state{callhandler_pid	= CallHandlerPid,
  +	   forkpid		= ForkPid
  +	  } = State,
       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});
  
positive.code: %%
  %% Method is non-INVITE and we are already completed
  %%
  handle_sipproxy_response(Response, #state{completed=true}=State) when is_record(Response, response) ->
      Request = State#state.request,
      {Method, URI} = {Request#request.method, Request#request.uri},
      {Status, Reason} = {Response#response.status, Response#response.reason},
      logger:log(error, "Appserver glue: NOT forwarding response ~p ~s to non-INVITE request ~s ~s - " ++
  	       "a final response has already been forwarded (sipproxy should not do this!)",
  	       [Status, Reason, Method, sipurl:print(URI)]),
  
negative.code: %% Returns : any (ignored by gen_server)
  %%--------------------------------------------------------------------
  terminate(Reason, State) ->
      BranchBase = State#state.branchbase,
      #request{method = Method, uri = URI} = State#state.request,
      case Reason of
  	normal ->
  	    logger:log(normal, "~s: Appserver glue: Finished with fork (~s ~s), exiting.",
  