diff --git a/collects/drracket/private/pict-snip.rkt b/collects/drracket/private/pict-snip.rkt index 4fb34f1e7e..a85a1b3ee7 100644 --- a/collects/drracket/private/pict-snip.rkt +++ b/collects/drracket/private/pict-snip.rkt @@ -50,7 +50,8 @@ (define/public (convert r d) (case r [(png-bytes) - (define bm (make-bitmap w h)) + (define bm (make-bitmap (inexact->exact (ceiling w)) + (inexact->exact (ceiling h)))) (define dc (send bm make-dc)) (draw dc 0 0 0 0 w h 0 0 #f) (define b (open-output-bytes))