kmx.io/cl-thot

diff --git a/thot.lisp b/thot.lisp
index 5f4a380..c15584b 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -355,7 +355,8 @@
            (when (endp (rest headers))
              (setf (rest headers) (list line))
              (return))
-           (pop headers)))))
+           (pop headers)))
+    line))
 
 (defun end-headers ()
   (unless (reply-headers-sent)