Not necessary now that we have scrubl
(mbody-val (<-wait matching-object 'get-desc
#:whos-looking (message-from message)))))
(if obj-desc
- (<- (message-from message) 'tell
- #:text (string-append obj-desc "\n"))
- (<- (message-from message) 'tell
- #:text (string-append %formless-desc "\n")))))
+ (<- (message-from message) 'tell #:text obj-desc)
+ (<- (message-from message) 'tell #:text %formless-desc))))
(else
(<- (message-from message) 'tell
#:text "You don't see that here, so you can't look at it.\n"))))