Update of /project/defdoc/cvsroot/DefDoc/src/layout In directory common-lisp.net:/tmp/cvs-serv22869

Modified Files: html-engine.lisp Log Message: tweak

Date: Sun Feb 15 00:09:08 2004 Author: rjain

Index: DefDoc/src/layout/html-engine.lisp diff -u DefDoc/src/layout/html-engine.lisp:1.2 DefDoc/src/layout/html-engine.lisp:1.3 --- DefDoc/src/layout/html-engine.lisp:1.2 Sun Feb 15 00:01:46 2004 +++ DefDoc/src/layout/html-engine.lisp Sun Feb 15 00:09:07 2004 @@ -235,7 +235,7 @@ (with-html-block+ (1 :mandatory :HEAD) (with-html-block (:TITLE) (convert-to-text *document-title*) - (write " - " :stream *html-stream*) + (write-string " - " :stream *html-stream*) (convert-to-text *document-subtitle*)) (dolist (element *html-head-elements*) (pprint-newline :linear *html-stream*)