anchor.diff:  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( {request, Id, Payload, SessionValue, SoapAction}, _From, State) ->
  -    Reply = request(State, Id, Payload, SessionValue, SoapAction),
  -    {reply, Reply, State}.
  +handle_call({get_wsdl, Id}, _From, State) ->
  +    {reply, get_model(State, Id), State}.
   
   %%--------------------------------------------------------------------
   %% Function: handle_cast(Msg, State) -> {noreply, State} |
  
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:         OtherError ->
              srv_error(io_lib:format("Error parsing message: ~p", [OtherError]))
      end;
  request(Model, {M,F}, Req, SessionValue, Action) ->
      %%error_logger:info_report([?MODULE, {payload, Req}]),
      Umsg = (catch erlsom_lib:toUnicode(Req)),
      case catch yaws_soap_lib:parseMessage(Umsg, Model) of
          {ok, Header, Body} ->
  