anchor.diff:      (if errorp
   	(make-error errorp)
         (case id
  -        (:error (make-error object))
  +	(:error (make-error errorp))
   	(:roster_1 (make-roster object))
   	(:reg2 :registration-successful)
  -        ((:unreg_1 :unreg1) :registration-cancellation-successful)
  +	(:unreg_1 :registration-cancellation-successful)
   	(:change1 :password-changed-successfully)
   	(:auth2 :authentication-successful)
   	(:bind_2 :bind-successful)
  
positive.code: 	    (receive-stanza connection))
  	  (when send-presence
  	    (presence connection)))
      ;; KC: Always return the result of the auth.   Previously the result of the
      ;; last executed form was returned, which is arbitrary
      result))
  
  (defmethod %plain-auth% ((connection connection) username password resource)
    (warn "RFC 3920 deprecated :PLAIN auth; use :SASL-PLAIN instead.")
    (with-iq-query (connection :id "auth2" :type "set" :xmlns "jabber:iq:auth")
     (cxml:with-element "username" (cxml:text username))
     (cxml:with-element "password" (cxml:text password))
  
negative.code: 	(t 
  	 (case type
  	   (:get (warn "Don't know how to handle IQ get yet."))
  	   (t
  	    (cond
  	     ((member id '(info1 info2 info3))
  	      (make-disco-info (get-element object :query)))
  	     ((member id '(items1 items2 items3 items4))
  	      (make-disco-items (get-element object :query)))
  	     (t ;; Assuming an error
                (make-error (get-element object :error)))))))))))
  
  (defmethod xml-element-to-event ((connection connection)
  				 (object xml-element) (name (eql :error)))
  