diff --git a/quad/qtest/test-fancy-sauce-tester.pdf b/quad/qtest/test-fancy-sauce-tester.pdf
new file mode 100644
index 00000000..7a7b6e22
Binary files /dev/null and b/quad/qtest/test-fancy-sauce-tester.pdf differ
diff --git a/quad/qtest/test-fancy-sauce.rkt b/quad/qtest/test-fancy-sauce.rkt
new file mode 100644
index 00000000..740b9eb2
--- /dev/null
+++ b/quad/qtest/test-fancy-sauce.rkt
@@ -0,0 +1,10 @@
+#lang racket
+(require quadwriter)
+
+(define doc 
+  '(q
+    (q "Brennan likes fancy sauce.")
+    (para-break)
+    (q "Dale hates fancy sauce.")))
+
+(provide doc)
diff --git a/quad/quadwriter/render.rkt b/quad/quadwriter/render.rkt
index 2e8f2283..d745aee1 100644
--- a/quad/quadwriter/render.rkt
+++ b/quad/quadwriter/render.rkt
@@ -8,6 +8,7 @@
          racket/dict
          pitfall
          quad
+         (only-in txexpr txexpr) ; matcher
          hyphenate
          pollen/decode
          sugar/coerce
@@ -177,7 +178,7 @@
                         #:string-proc (compose1 smart-ellipses smart-dashes)
                         #:txexpr-proc smart-quotes)])
       (match qx
-        [(list tag attrs elements ...)
+        [(txexpr tag attrs elements)
          ;; we insert a dummy element "."
          ;; (could be anything, but we want to use something obvious
          ;; so we don't trigger a fallback font)