kmx.io/cl-thot

diff --git a/thot.lisp b/thot.lisp
index 404e749..cbd534a 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -538,7 +538,7 @@ The requested url "
                    (force-output))
                  (when handler
                    (call-handler handler)
-                   (stream-flush (reply-stream% reply))
+                   (stream-flush-output (reply-stream% reply))
                    (return)))))
           (if (string-equal "keep-alive" (request-header 'connection))
               :keep-alive