Fixed typo.

[scratchy.git] / scratchy.scm

diff --git a/scratchy.scm b/scratchy.scm
index 774b488..5e6a37f 100644 (file)
--- a/scratchy.scm
+++ b/scratchy.scm
@@ -77,7 +77,7 @@
                       (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.")