X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=mudsync%2Fgameobj.scm;h=55b76bbb15dc959139a5b388fd5d6d37a83136e9;hb=0baf1da2f8a5139139284c819f5bff1f91e72c65;hp=6c739123d63e862b4537cb2206e004d82d3866b2;hpb=72bb4674c8058ada141da9f62a866e06381a8228;p=mudsync.git

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index 6c73912..55b76bb 100644
--- a/mudsync/gameobj.scm
+++ b/mudsync/gameobj.scm
@@ -519,7 +519,7 @@ By default, this is whether or not the generally-visible flag is set."
          (slot-ref-maybe-runcheck gameobj 'take-from-me? player this-thing)))
   (define (default-objection)
     `("Unfortunately, it doesn't seem like you can take "
-      (this-thing-name) " " preposition " " our-name "."))
+      ,(this-thing-name) " " ,preposition " " ,our-name "."))
 
   (define (this-thing-objection)
     (mbody-receive (_ taken-ok? #:key why-not) ; does the object object to being removed?
@@ -536,7 +536,6 @@ By default, this is whether or not the generally-visible flag is set."
     (<- player 'tell
         #:text `("It's not really clear how to take something " ,preposition
                  " " ,our-name ".")))
-
    ;; Unfortunately this does leak information about what is contained
    ;; by us.  Maybe not what's wanted in all circumstances.
    ((not this-thing)