diff --git a/quad/quadwriter/render.rkt b/quad/quadwriter/render.rkt index 252ba40f..c9b37fca 100644 --- a/quad/quadwriter/render.rkt +++ b/quad/quadwriter/render.rkt @@ -188,7 +188,9 @@ ;; but keep the attrs around in case anyone needs to use them ;; for instance, quads added to the layout like footers ;; won't have another way of getting this - (list* tag attrs (cons "." elements))])) + ;; the dummy tag and dummy value ensure that the "." string + ;; isn't merged into the following string during atomization + (list* tag attrs (cons '(q ((dummy-tag "dummy-value")) ".") elements))])) (define (apply-default-styling-attributes qexpr) ;; apply some default styling attributes.