diff --git a/lib/chibi/net/http-server.scm b/lib/chibi/net/http-server.scm
index 0a93ea99..188b4280 100644
--- a/lib/chibi/net/http-server.scm
+++ b/lib/chibi/net/http-server.scm
@@ -336,7 +336,7 @@
   (case (request-method request)
     ((HEAD)
      (call-with-temp-file "get.out"
-       (lambda (temp-file out)
+       (lambda (temp-file out preserve)
          (let ((request2 (copy-request request)))
            (request-method-set! request2 'GET)
            (request-out-set! request2 out)