X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fgameobj.scm;h=44602dfb5463d5dfe5c4e0cd4d655b88c8e8b0c9;hp=8efe565d9b6e84752740df5f5a28a475044ae0a1;hb=ed1ef3172af4c2621e2b746824b7defa6f0dcedd;hpb=e6bd5ce0dd5edd77d182f70e6a32101e999f8623

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index 8efe565..44602df 100644
--- a/mudsync/gameobj.scm
+++ b/mudsync/gameobj.scm
@@ -140,7 +140,7 @@
 
 (define (run-replacement actor replaces replace-steps)
   (when replaces
-    (msg-receive (_ #:key occupants)
+    (mbody-receive (_ #:key occupants)
         (<-wait replaces 'assist-replace)
       (for-each
        (lambda (replace-step)
@@ -348,8 +348,8 @@ By default, this is whether or not the generally-visible flag is set."
   (match special-symbol
     ;; if it's a symbol, look it up dynamically
     ((? symbol? _)
-     (msg-val (<-wait (slot-ref gameobj 'gm) 'lookup-special
-                      #:symbol special-symbol)))
+     (mbody-val (<-wait (slot-ref gameobj 'gm) 'lookup-special
+                        #:symbol special-symbol)))
     ;; if it's false, return nothing
     (#f #f)
     ;; otherwise it's probably an address, return it as-is