(let* ((result (<-wait player co-occupant 'get-commands
#:verb verb))
(commands (message-ref result 'commands))
(goes-by (message-ref result 'goes-by)))
(let* ((result (<-wait player co-occupant 'get-commands
#:verb verb))
(commands (message-ref result 'commands))
(goes-by (message-ref result 'goes-by)))