X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=8sync%2Factors.scm;h=8abe41a1133b20c65dcaf8a3ff3ca1c5f40a8c3e;hb=5b14912b0f727252f4701c3fe4cb742e4192457b;hp=6d17e0597d9bab86bdaf86b6f85bd34fbd7179a5;hpb=a0e0735ebf3f184b4f105cad1af5757ecd08e2e4;p=8sync.git

diff --git a/8sync/actors.scm b/8sync/actors.scm
index 6d17e05..8abe41a 100644
--- a/8sync/actors.scm
+++ b/8sync/actors.scm
@@ -372,10 +372,9 @@ and handling them."
           (lambda vals
             ;; Return reply if necessary
             (when (message-wants-reply message)
-              (when (message-wants-reply message)
-                (%<- #f actor (message-from message) '*reply*
-                     vals ((actor-msg-id-generator actor))
-                     (message-id message)))))))
+              (%<- #f actor (message-from message) '*reply*
+                   vals ((actor-msg-id-generator actor))
+                   (message-id message))))))
       (const #t)
       (let ((err (current-error-port)))
         (lambda (key . args)