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: %%% Internal functions
  %%--------------------------------------------------------------------
  
  request(State, {M,F} = Id, {Req, Attachments}, SessionValue, Action) ->
      {ok, Model} = get_model(State, Id),
      %%error_logger:info_report([?MODULE, {payload, Req}]),
      case catch yaws_soap_lib:parseMessage(Req, Model) of
          {ok, Header, Body} ->
  
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} ->
  