anchor.diff:  	    Err
       end;
   parse(SocketData, [El | Els]) when is_record(El, xmlel) ->
  +    ?dbg("(~s) Received XML on stream = ~p", [pp(SocketData),
  +					      fxml:element_to_binary(El)]),
       self() ! {'$gen_event', {xmlstreamelement, El}},
       parse(SocketData, Els);
   parse(SocketData, [El | Els]) when
  
positive.code:     end.
  
  -spec send_xml(socket_state(), stream_element()) -> ok | {error, any()}.
  send_xml(#socket_state{sockmod = SockMod, socket = Socket}, El) ->
      SockMod:send_xml(Socket, El).
  
  recv(#socket_state{sockmod = SockMod, socket = Socket} = SocketData, Data) ->
      case SockMod of
  
negative.code:       element(1, El) == xmlstreamelement;
        element(1, El) == xmlstreamend;
        element(1, El) == xmlstreamerror ->
      ?dbg("(~s) Received XML on stream = ~p", [pp(SocketData),
  					      stringify_stream_element(El)]),
      self() ! {'$gen_event', El},
      parse(SocketData, Els);
  parse(#socket_state{xml_stream = XMLStream,
  