diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/image.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/image.rkt index 3af93c205d..78a1b3e363 100644 --- a/pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/image.rkt +++ b/pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/image.rkt @@ -67,7 +67,11 @@ (define (bitmap->image bm) (define w (send bm get-width)) (define h (send bm get-height)) - (define s (send bm get-backing-scale)) + (define s (if (version-10.6-or-later?) + (send bm get-backing-scale) + ;; In 10.5, `NSImage setSize:` clips instead of + ;; scaling, so just use scale of 1: + 1)) (cond [(= s 1) (bitmap->image* bm w h w h)] [else