Have TOC   fit new html-dumper encoding of raw data.

diff --git a/exscribe-html.lisp b/exscribe-html.lisp
index 1069676..e0eea1c 100644 (file)
--- a/exscribe-html.lisp
+++ b/exscribe-html.lisp
@@ -116,7 +116,7 @@
                           *section-name*
                           (incf *subsection-counter*))))
     (setf *subsection-name* number *subsubsection-counter* 0)
-    (make-xsection :subsection  "   " options number #'title-font)))
+    (make-xsection :subsection  #("   ") options number #'title-font)))
 (defun make-subsubsection (options)
   (let ((number (getf options :number t)))
     (when (eq number t)
@@ -124,7 +124,7 @@
                           *subsection-name*
                           (incf *subsubsection-counter*))))
     (setf *subsubsection-name* number)
-    (make-xsection :subsubsection "      "
+    (make-xsection :subsubsection #("      ")
                   options number
                    #'(lambda (x) (p :align 'left (bold x) " ")))))