diff --git a/collects/racket/draw/private/record-dc.rkt b/collects/racket/draw/private/record-dc.rkt
index 0167709245..80ce418ef2 100644
--- a/collects/racket/draw/private/record-dc.rkt
+++ b/collects/racket/draw/private/record-dc.rkt
@@ -184,7 +184,9 @@
 
     (define/record (clear))
     
-    (define/record (erase))
+    (define/override (erase)
+      (super erase)
+      (set! procs null))
 
     (define/record (draw-arc x y
                              width height