- (<- (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))))