diff --git a/gui-lib/mred/private/wx/cocoa/canvas.rkt b/gui-lib/mred/private/wx/cocoa/canvas.rkt
index 642b69d9..c6e439ec 100644
--- a/gui-lib/mred/private/wx/cocoa/canvas.rkt
+++ b/gui-lib/mred/private/wx/cocoa/canvas.rkt
@@ -419,6 +419,8 @@
                      [gl-view (tell (tell RacketGLView alloc)
                                     initWithFrame: #:type _NSRect r
                                     pixelFormat: pf)])
+                (when (and gl-config (send gl-config get-hires-mode))
+                  (tellv gl-view setWantsBestResolutionOpenGLSurface: #:type _uint 1))
                 (when new-context
                   (tellv gl-view setOpenGLContext: new-context)
                   ;; We're supposed to sync via `setView:' but it fails,