diff --git a/collects/racket/draw/region.rkt b/collects/racket/draw/region.rkt
index 339c2fd01f..8d4593f106 100644
--- a/collects/racket/draw/region.rkt
+++ b/collects/racket/draw/region.rkt
@@ -226,12 +226,12 @@
           (let ([p (new dc-path%)])
             (let ([i (car pts)])
               (if (pair? i)
-                  (send p move-to (car i) (cdr i))
-                  (send p move-to (point-x i) (point-y i))))
+                  (send p move-to (+ x (car i)) (+ y (cdr i)))
+                  (send p move-to (+ x (point-x i)) (+ y (point-y i)))))
             (for ([i (in-list (cdr pts))])
               (if (pair? i)
-                  (send p line-to (car i) (cdr i))
-                  (send p line-to (point-x i) (point-y i))))
+                  (send p line-to (+ x (car i)) (+ y (cdr i)))
+                  (send p line-to (+ x (point-x i)) (+ y (point-y i)))))
             (send p close)
             (when matrix (send p transform matrix))
             (set! paths (list (cons p fill-style))))))