diff --git a/backplane-auth.scm b/backplane-auth.scm
index 8aa230a..85cc4e6 100644
--- a/backplane-auth.scm
+++ b/backplane-auth.scm
@@ -48,7 +48,7 @@
 (define (auth-listener handler)
   (let ((in (current-input-port))
         (out (current-output-port)))
-    (while #t
+    (while (not (eof-object? in))
            (let ((size (bytevector-u16-ref (get-bytevector-n in 2) 0 (endianness big)))
                  (response (make-bytevector 4 0)))
              (bytevector-u8-set! response 1 #x02)