-(define-mhandler (gm-lookup-special actor message symbol)
- (<-reply actor message
- #:room-id (hash-ref (slot-ref actor 'special-dir) symbol)))
+(define* (gm-lookup-special actor message #:key symbol)
+ (<-reply actor message (hash-ref (slot-ref actor 'special-dir) symbol)))