kmx.io/cl-thot

diff --git a/thot-select.lisp b/thot-select.lisp
index 0660be2..9060327 100644
--- a/thot-select.lisp
+++ b/thot-select.lisp
@@ -14,6 +14,7 @@
                 (reply (make-instance 'reply :stream reply-stream))
                 (reader (request-reader req reply))
                 (result (funcall (the function reader))))
+           (stream-flush reply-stream)
            (unless (eq :keep-alive result)
              (return)))
        (warning (w)