-(define (echo-message irc-bot speaker channel-name
- line-text emote?)
- "Simply echoes the message to the current-output-port."
+(define* (echo-message irc-bot speaker channel-name
+ line-text emote? #:key (port (current-output-port)))
+ "Simply echoes the message to the PORT."