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

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)