Correct the use of Ironclad and CL-Base64.

Ignore-this: b72aa14995541e8cde0715ac21c88a87

darcs-hash:3f9d574e1cae7aaeb53f27ec3105eb5902c7ebe6

1 files changed, 2 insertions, 2 deletions

diff --git a/utils.lisp b/utils.lisp
index df85e12..32cf319 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -399,10 +399,10 @@ ELEMENT-TYPE as the stream's."
            (our-digest (and (stringp nonce)
                             (stringp timestamp)
                             (stringp *wsse-key*)
-                            (cl-base64:string-to-base64-string
+                            (cl-base64:usb8-array-to-base64-string
                              (ironclad:digest-sequence
                               :sha1
-                              (format nil "~A~A~A" nonce timestamp *wsse-key*))))))
+                              (map 'vector #'char-code (format nil "~A~A~A" nonce timestamp *wsse-key*)))))))
       (declare (ignore user))
       (if (and (stringp our-digest)
                (stringp their-digest)