From 38f2594ba5331fffcb8bd68a1f584d2b48a0d9f9 Mon Sep 17 00:00:00 2001
From: vibr <vibr>
Date: Sun, 15 Aug 2004 12:40:06 +0000
Subject: [PATCH] emit less newlines

---
 scheme/lib/htmlout.scm | 2 +-
 scheme/packages.scm    | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

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 @@
 ;;; <title> Make Money Fast!!! </title>
 
 (define (emit-title out title)			; Takes no attributes.
-  (format out "<title>~a~%</title>" title))
+  (format out "<title>~a</title>" 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)))