diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index ef5c7779..4a6dac3d 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -1653,7 +1653,7 @@
       [copy-self-to
        (lambda (e)
 	 (super-copy-self-to e)
-	 (auto-wrap auto-set-wrap?))]
+	 (send e auto-wrap auto-set-wrap?))]
       [on-display-size
        (entry-point
 	(lambda ()