X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fplayer.scm;fp=mudsync%2Fplayer.scm;h=113770f72aa5d43ce23a34a87c95f4b8adfb5aa1;hp=844aaf96f031fbf4112a05b602a3bd5e0f4e5813;hb=aca41e2e3c5ed026c2672e3ac4ac364bbdef19c7;hpb=6cff5b0062ef928204295ab4327bf2d417070421

diff --git a/mudsync/player.scm b/mudsync/player.scm
index 844aaf9..113770f 100644
--- a/mudsync/player.scm
+++ b/mudsync/player.scm
@@ -113,9 +113,7 @@
   (define inv-names
     (map
      (lambda (inv-item)
-       (msg-receive (_ #:key val)
-           (<-wait player inv-item 'get-name)
-         val))
+       (msg-val (<-wait player inv-item 'get-name)))
      (gameobj-occupants player)))
   (define text-to-show
     (if (eq? inv-names '())