diff --git a/quad/main.rkt b/quad/main.rkt
index fdb5c529..f4968e67 100644
--- a/quad/main.rkt
+++ b/quad/main.rkt
@@ -189,7 +189,10 @@
 (define/contract (typeset x)
   (coerce/input? . -> . doc?)  
   (load-text-cache-file)
-  (define pages (append-map (λ(mp) (columns->pages (append-map (λ(mc) (lines->columns (append-map block-quads->lines mc))) mp))) (input->nested-blocks x)))
+  (define pages (append* (for/list ([multipage (in-list (input->nested-blocks x))])
+                           (columns->pages (append* (for/list ([multicolumn (in-list multipage)])
+                                                      (lines->columns (append* (for/list ([block-quads (in-list multicolumn)])
+                                                                                 (block-quads->lines block-quads))))))))))
   (define doc (pages->doc pages))
   (update-text-cache-file)
   doc)