diff --git a/collects/racket/draw/private/color.rkt b/collects/racket/draw/private/color.rkt
index a55f78b54e..d716750eba 100644
--- a/collects/racket/draw/private/color.rkt
+++ b/collects/racket/draw/private/color.rkt
@@ -12,7 +12,7 @@
          color->immutable-color)
 
 (define-local-member-name
-  r g b)
+  r g b a)
 
 (defclass color% object%
   (field [r 0]
diff --git a/collects/racket/draw/private/point.rkt b/collects/racket/draw/private/point.rkt
index 6e8cdda1d8..c4ac09619b 100644
--- a/collects/racket/draw/private/point.rkt
+++ b/collects/racket/draw/private/point.rkt
@@ -5,6 +5,8 @@
 (provide point% point-x point-y
          list-of-pair-of-real?)
 
+(define-local-member-name x y)
+
 (define point%
   (class object%
     (init-field [x 0.0]