diff --git a/pkgs/draw-pkgs/draw-lib/racket/draw/private/record-dc.rkt b/pkgs/draw-pkgs/draw-lib/racket/draw/private/record-dc.rkt index 4199e18de4..b1a11255a7 100644 --- a/pkgs/draw-pkgs/draw-lib/racket/draw/private/record-dc.rkt +++ b/pkgs/draw-pkgs/draw-lib/racket/draw/private/record-dc.rkt @@ -325,7 +325,7 @@ (apply values (if (eq? (car l) 'scale) (cdr l) (cons 1.0 l)))) - (define bm (make-object bitmap% w h (not color?) alpha? #:backing-scale s)) + (define bm (make-object bitmap% w h (not color?) alpha? s)) (define (scale v) (inexact->exact (ceiling (* s v)))) (send bm set-argb-pixels 0 0 (scale w) (scale h) bstr #:unscaled? #t) bm))) diff --git a/pkgs/gui-pkgs/gui-test/tests/gracket/draw.rkt b/pkgs/gui-pkgs/gui-test/tests/gracket/draw.rkt index fd8c43a657..1f082eaa36 100644 --- a/pkgs/gui-pkgs/gui-test/tests/gracket/draw.rkt +++ b/pkgs/gui-pkgs/gui-test/tests/gracket/draw.rkt @@ -1321,7 +1321,7 @@ (set! screen-bitmap? (= 4 (send self get-selection))) (set! compat-bitmap? (= 5 (send self get-selection))) (set! scaled-bitmap? (= 6 (send self get-selection))) - (set! use-record? (<= 7 (send self get-selection) 6)) + (set! use-record? (<= 7 (send self get-selection) 8)) (set! serialize-record? (= 8 (send self get-selection))) (set! use-bad? (< 9 (send self get-selection))) (send canvas refresh)))