diff --git a/collects/mred/private/wx/cocoa/printer-dc.rkt b/collects/mred/private/wx/cocoa/printer-dc.rkt
index 580ad92e1d..84f2eab309 100644
--- a/collects/mred/private/wx/cocoa/printer-dc.rkt
+++ b/collects/mred/private/wx/cocoa/printer-dc.rkt
@@ -174,9 +174,10 @@
                                        (+ (NSPoint-y (NSRect-origin b))
                                           (NSSize-height (NSRect-size b))))
                                     page-scaling))
-          (let* ([surface (cairo_quartz_surface_create_for_cg_context cg 
-                                                                      (inexact->exact (ceiling page-width))
-                                                                      (inexact->exact (ceiling page-height)))]
+          (let* ([surface (cairo_quartz_surface_create_for_cg_context 
+                           cg 
+                           (inexact->exact (ceiling (/ page-width page-scaling)))
+                           (inexact->exact (ceiling (/ page-height page-scaling))))]
                  [cr (cairo_create surface)])
             (cairo_surface_destroy surface)
             (let ([dc (make-object (dc-mixin