diff --git a/collects/web-server/configuration.ss b/collects/web-server/configuration.ss
index ce97fb364a..74d09bd7a9 100644
--- a/collects/web-server/configuration.ss
+++ b/collects/web-server/configuration.ss
@@ -254,7 +254,7 @@
                    (list 'from client-ip 'to host-ip 'for (url->string uri) 'at
                          (date->string (seconds->date (current-seconds)) #t)))
            log-p)
-          (close-output-file log-p))
+          (close-output-port log-p))
         (semaphore-post outsem))))
 
   ; ignore-log : sym str -> str str sym url str -> str