diff --git a/gib-gab-gob/actors.scm b/gib-gab-gob/actors.scm
index 623f7f1..c0da1d3 100644
--- a/gib-gab-gob/actors.scm
+++ b/gib-gab-gob/actors.scm
@@ -11,7 +11,7 @@
   (methods
    [(register-opponent name client sealed-pick)
     (format #t "Hey there, ~a! You sent me your pick of rock-paper-scissors; now I will send mine.\n" name)
-    (on (<- (<- client 'exchange-pick-for-unsealer pick) sealed-pick)
+    (on (<- (<- client 'pick->unsealer pick) sealed-pick)
         (lambda (peer-pick)
           (format #t "The peer has picked ~a (do I win? ~s)\n" peer-pick (rps-winner pick peer-pick))))]))
 
@@ -21,6 +21,6 @@
   (define pick (pick-rps))
   (methods
    [(get-sealed-pick) ($ seal-pick pick)]
-   [(exchange-pick-for-unsealer peer-pick)
+   [(pick->unsealer peer-pick)
     (format #t "Peer picked ~a... a bold choice (do I win? ~s), i will send my unsealer\n" peer-pick (rps-winner pick peer-pick))
     unseal-pick]))