(<- room (message-from message) 'look-room))
(else
(<- room (message-from message) 'tell
- #:text "I don't know where that is?\n"))))
+ #:text "You don't see any way to go there.\n"))))
(define-mhandler (room-cmd-go-where room message)
(<- room (message-from message) 'tell