X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fgameobj.scm;h=334f4397593054d71c744ee062e40c850909be34;hp=9046520bbb9ba7dc396dcfa4bec301117f85f716;hb=cd40c01c4ac301e7d991e4df4d17d2c693d11d05;hpb=901f16ca8dccc6d4e4037ae68dc0b7171b43478c

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index 9046520..334f439 100644
--- a/mudsync/gameobj.scm
+++ b/mudsync/gameobj.scm
@@ -127,8 +127,8 @@
 ;; Kind of a useful utility, maybe?
 (define (simple-slot-getter slot)
   (lambda (actor message)
-    (reply-message actor message
-                   #:val (slot-ref actor slot))))
+    (<-reply actor message
+             #:val (slot-ref actor slot))))
 
 (define (gameobj-replace-step-occupants actor replace-reply)
   (define occupants
@@ -365,6 +365,6 @@ By default, this is whether or not the generally-visible flag is set."
               #:symbol special-symbol)
       'val))
     ;; if it's false, return nothing
-    ((#f #f))
+    (#f #f)
     ;; otherwise it's probably an address, return it as-is
     (_ special-symbol)))