diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm index 78c8cf8..cc193a7 100644 --- a/scheme/httpd/core.scm +++ b/scheme/httpd/core.scm @@ -302,7 +302,8 @@ (send-http-header-fields (list (cons 'server (string-append "Scheme Untergrund " sunet-version-identifier)) (cons 'content-type (response-mime response)) - (cons 'date (rfc822-time->string (response-seconds response)))) + (cons 'date (rfc822-time->string (response-seconds response))) + (cons 'connection "close")) port) (send-http-header-fields (response-extras response) port)