diff --git a/httpd-core.scm b/httpd-core.scm
index d075267..92aab2f 100644
--- a/httpd-core.scm
+++ b/httpd-core.scm
@@ -133,7 +133,7 @@
                  Logging now to stderr.~%"
 	     logfile
 	     (car packet))
-     ((current-error-port)))
+     (current-error-port))
    (lambda ()
      (open-output-file logfile 
 		       (bitwise-ior open/create open/append)))))