anchor.diff:  %%% Internal functions
   %%--------------------------------------------------------------------
   
  -request(State, {M,F} = Id, {Req, Attachments}, SessionValue, Action) ->
  -    {ok, Model} = get_model(State, Id),
  +request(Model, {M,F}, {Req, Attachments}, SessionValue, Action) ->
       %%error_logger:info_report([?MODULE, {payload, Req}]),
       case catch yaws_soap_lib:parseMessage(Req, Model) of
           {ok, Header, Body} ->
  
positive.code: %%% To be called from yaws_rpc.erl
  %%% Return according to yaws_rpc:eval_payload/6
  handler(Args, Id, Payload, SessionValue) ->
      Headers = Args#arg.headers,
      SoapAction = yaws_soap_lib:findHeader("SOAPAction", Headers#headers.other),
      case gen_server:call(?SERVER, {request, Id, Payload,
                                     SessionValue, SoapAction}, infinity) of
          {ok, XmlDoc, ResCode, undefined} ->
              {false, XmlDoc, ResCode};
          {ok, XmlDoc, ResCode, SessVal} ->
  
negative.code: handle_call({add_wsdl, Id, WsdlModel}, _From, State) ->
      NewWsdlList = uinsert({Id, WsdlModel}, State#s.wsdl_list),
      {reply, ok, State#s{wsdl_list = NewWsdlList}};
  handle_call({get_wsdl, Id}, _From, State) ->
      {reply, get_model(State, Id), State}.
  
  %%--------------------------------------------------------------------
  %% Function: handle_cast(Msg, State) -> {noreply, State} |
  