diff --git a/quad/quadwriter/core.rkt b/quad/quadwriter/core.rkt
index 3e53e2e6..db9caea0 100644
--- a/quad/quadwriter/core.rkt
+++ b/quad/quadwriter/core.rkt
@@ -650,7 +650,7 @@
            ;; if only top or bottom margin is provided, copy other value in preference to default margin
            [top-margin (or (debug-y-margin)
                            (quad-ref (car qs) 'page-margin-top (λ () (quad-ref (car qs) 'page-margin-bottom default-top-margin))))]
-           [bottom-margin #R (let ([vert-optical-adjustment 10])
+           [bottom-margin (let ([vert-optical-adjustment 10])
                             (or (debug-y-margin)
                                 (quad-ref (car qs) 'page-margin-bottom (λ () (+ vert-optical-adjustment (quad-ref (car qs) 'page-margin-top (* default-top-margin 1.4)))))))]
            [page-wrap-size (- (pdf-height pdf) top-margin bottom-margin)]