(print "... served selector '" selector "'. Closing connection."))
(o (exn)
(print-error-message o)
- (print "Invalid selector.")
+ (display "Invalid selector.\r\n.\r\n" out-port)
(print "Error while attempting to serve selector " selector "."))))
(begin
(print "Connection from blacklisted IP. Closing.")