diff --git a/gui-lib/mred/private/wx/cocoa/canvas.rkt b/gui-lib/mred/private/wx/cocoa/canvas.rkt
index 87416211..f9fa12dc 100644
--- a/gui-lib/mred/private/wx/cocoa/canvas.rkt
+++ b/gui-lib/mred/private/wx/cocoa/canvas.rkt
@@ -966,6 +966,9 @@
                            (tell (tell NSImageView alloc) init))])
               (cond
                [gc-via-gl?
+                (tellv (tell glv openGLContext) setValues:
+                       #:type (_ptr i _long) 0
+                       forParameter: #:type _int NSOpenGLCPSwapInterval)
                 (tellv win setAcceptsMouseMovedEvents: #:type _BOOL #t)
                 (set-ivar! win wxb (->wxb this))
                 (set-ivar! glv wxb (->wxb this))
diff --git a/gui-lib/mred/private/wx/cocoa/dc.rkt b/gui-lib/mred/private/wx/cocoa/dc.rkt
index 77b784ec..9781cf84 100644
--- a/gui-lib/mred/private/wx/cocoa/dc.rkt
+++ b/gui-lib/mred/private/wx/cocoa/dc.rkt
@@ -21,7 +21,8 @@
               do-backing-flush)
  display-bitmap-resolution
  make-screen-bitmap
- make-window-bitmap)
+ make-window-bitmap
+ NSOpenGLCPSwapInterval)
 
 (import-class NSOpenGLContext NSScreen NSGraphicsContext NSWindow)