diff --git a/xep-0363.lisp b/xep-0363.lisp index 6fb2fad..fd3db84 100644 --- a/xep-0363.lisp +++ b/xep-0363.lisp @@ -26,6 +26,6 @@ (when (equal name "header") (setf headers (cons (cons (dom:get-attribute node "name") - (dom:node-value (elt (child-elements node) 0))) + (get-node-text node)) headers))))) `((,(dom:get-attribute put-node "url") . ,headers) ,(dom:get-attribute get-node "url")))))))