;; Dump the player into the default room
(<-wait gm player 'set-loc! #:loc room-id)
;; Initialize the player
- (<- gm player 'init)))))
+ (<-wait gm player 'init)
+ (<- gm room-id 'tell-room
+ #:text (format #f "You see ~a materialize out of thin air!\n"
+ guest-name)
+ #:exclude player)))))