diff --git a/quad/quadwriter/markup.rkt b/quad/quadwriter/markup.rkt
index c2e8fc6f..02cebe82 100644
--- a/quad/quadwriter/markup.rkt
+++ b/quad/quadwriter/markup.rkt
@@ -7,7 +7,12 @@
          (all-from-out "tags.rkt")
          q)
 
-(make-module-begin (λ (exprs) (doc-proc (decode-paragraphs exprs #:force? #true))))
+(make-module-begin
+ (λ (exprs)
+   (doc-proc
+    (decode-paragraphs exprs
+                       #:force? #true
+                       #:linebreak-proc (λ (x) (decode-linebreaks x '(line-break)))))))
 
 (module reader racket/base
   (require "lang-helper.rkt")