@@ -38,7 +38,7 @@

     (with-open-stream (conn (ssl-connection (puri:uri-host uri) 1965))

       (request uri conn)

       (finish-output conn)

-      (loop for read = (read-line buffer conn)

+      (loop for read = (read-sequence buffer conn)

             while (= read (length buffer))

             do (write-sequence buffer s)

             finally (write-sequence buffer conn :end read))

@@ -59,4 +59,4 @@

             when (equal read "```") do (setf preformatted (not preformatted))

             when (and (not preformatted) (> (length read) 2) (equal (subseq read 0 2) "=>"))

             do (push (parse-link uri read) links))

-      (values uri links))))

\ No newline at end of file

+      (values uri links))))