X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Factors.scm;h=8bff1d4365795b11c4980178cb342ef5f6a3b1a2;hp=c08916ea5d39a9b1465d7c28e2895f4523e436fa;hb=cd2611c04e1bf009d2bf6d57ec9eef5ecf0214cc;hpb=c5d1445fa4cecb4eea22d73bf0e9535e3490f6d4

diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm
index c08916e..8bff1d4 100644
--- a/8sync/systems/actors.scm
+++ b/8sync/systems/actors.scm
@@ -73,7 +73,7 @@
             hive-bootstrap-message
 
             serialize-message write-message
-            serialize-message-pretty pprint-mesage
+            serialize-message-pretty pprint-message
             read-message read-message-from-string))
 
 ;; For ids
@@ -476,7 +476,7 @@ If key not found and DFLT not provided, throw an error."
   (let ((result (assoc key (message-body message))))
     (if result (cdr result)
         (if (eq? dflt %nothing-provided)
-            (throw 'message-body-lacks-key
+            (throw 'message-missing-key
                    "Message body does not contain key and no default provided"
                    #:key key
                    #:message message)
@@ -581,8 +581,8 @@ an integer."
   "Serialize a message for read/write"
   (list
    (message-id message)
-   (address->string (message-to message))
-   (address->string (message-from message))
+   (message-to message)
+   (message-from message)
    (message-action message)
    (message-body message)
    (message-in-reply-to message)