diff --git a/src/api-client.lisp b/src/api-client.lisp
index a7f5e87..717a223 100644
--- a/src/api-client.lisp
+++ b/src/api-client.lisp
@@ -164,7 +164,8 @@ authorization code."
                       (let* ((endline (format nil "~C~C" #\return #\linefeed))
                              (headers (join-with-strings *http-auth-reply-headers* endline)))
                         (format stream "~a~a~a" headers endline endline)
-                        (format stream (http-auth-reply-body-template) +program-name+))))))
+                        (format stream (http-auth-reply-body-template) +program-name+)
+                        (finish-output stream))))))
            (usocket:socket-close client-socket)))
     (usocket:socket-close socket)))