emit less newlines

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))

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)))