diff --git a/scheme/lib/htmlout.scm b/scheme/lib/htmlout.scm index 8b91257..18e6d64 100644 --- a/scheme/lib/htmlout.scm +++ b/scheme/lib/htmlout.scm @@ -92,7 +92,7 @@ ;;; Make Money Fast!!! (define (emit-title out title) ; Takes no attributes. - (format out "~a~%" title)) + (format out "~a" title)) (define (emit-header out level text . attribs) (apply with-tag* out (string-append "h" (number->string level)) diff --git a/scheme/packages.scm b/scheme/packages.scm index 3c89a6b..21b8b99 100644 --- a/scheme/packages.scm +++ b/scheme/packages.scm @@ -788,7 +788,8 @@ handle ; IGNORE-ERROR parse-html-forms ; PARSE-HTML-FORM-QUERY threads ; SLEEP - sunet-utilities + sunet-utilities + handle-fatal-error ) (files (httpd seval)))