diff --git a/quad/qtest/typewriter.rkt b/quad/qtest/typewriter.rkt
index c21b636a..a5a85141 100644
--- a/quad/qtest/typewriter.rkt
+++ b/quad/qtest/typewriter.rkt
@@ -90,6 +90,8 @@
     (set-field! @size new-run (delay (list (for/sum ([pc (in-list run-pcs)])
                                                     (pt-x (send pc size)))
                                            (pt-y (send (car pcs) size)))))
+    (set-field! @elems new-run (merge-adjacent-strings (apply append (for/list ([pc (in-list run-pcs)])
+                                                                               (send pc elems)))))
     (values (cons new-run runs) rest)))
 
 (define line-height 16)