diff --git a/scm/html/common.scm b/scm/html/common.scm
index e8ce75d..468c215 100644
--- a/scm/html/common.scm
+++ b/scm/html/common.scm
@@ -309,7 +309,7 @@
(if (not (string->number where))
(warn "invalid font position `~a' in .fp" where)
(mount-font (string->number where) name) "")))
-
+
(define previous-font 1)
(define current-font 1)
@@ -560,9 +560,10 @@
(define (emit-HTML-prolog)
(let ((mailto (option 'mail-address)))
(emit "\n\n")
- (emit "\n")
- "\n")
+ (emit "\n")
(if mailto (emit "\n"))))