Fix up default-objection in cmd-take-from

[mudsync.git] / mudsync / gameobj.scm

diff --git a/mudsync/gameobj.scm b/mudsync/gameobj.scm
index 6c739123d63e862b4537cb2206e004d82d3866b2..55b76bbb15dc959139a5b388fd5d6d37a83136e9 100644 (file)
--- 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)