fix borked XEP-0363

2021-06-01 16:54:20 +01:00 · 2021-06-01 16:54:20 +01:00 · 8ef02aec12
parent e7b27f39f0
commit 8ef02aec12
1 changed files with 1 additions and 1 deletions
--- 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")))))))