diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
index 1c17166592..2455f7f4a8 100644
--- a/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
+++ b/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
@@ -140,7 +140,7 @@ that actually does drawing in a window.
 
 (define bernoulli-sequence-pict (make-bernoulli-sequence-pict 50))
 (define (draw-splash-ada dc current max width height)
-  (send dc erase)
+  (send dc clear)
   (draw-ada dc (/ current max) width height) #t)
 
 (module+ main