diff --git a/scheme/httpd/file-dir-handler.scm b/scheme/httpd/file-dir-handler.scm index 0da6cc6..c79c401 100644 --- a/scheme/httpd/file-dir-handler.scm +++ b/scheme/httpd/file-dir-handler.scm @@ -416,7 +416,7 @@ (file-directory-options-back-icon-url options)) (blank-icon (file-directory-options-blank-icon-url options))) - (with-tag port html () + (with-tag port html (xmlnsdecl-attr) (let ((title (string-append "Index of /" (string-join file-path "/")))) (with-tag port head () diff --git a/scheme/httpd/info-gateway.scm b/scheme/httpd/info-gateway.scm index 93be76e..d2fc19a 100644 --- a/scheme/httpd/info-gateway.scm +++ b/scheme/httpd/info-gateway.scm @@ -440,7 +440,7 @@ (receive (port file-header node-header up-header prev-header next-header) (find-node file node find-file) - (with-tag out html () + (with-tag out html (xmlnsdecl-attr) (with-tag out head () (display-title file node-header up-header prev-header next-header