From b7be9ad70cca07614f20b28754a5c6fc4c7f105c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 15 Apr 1999 18:48:21 +0000
Subject: [PATCH] .

original commit: 4d5697d9be63a0bc3b8126ac91e7fa721fb43227
---
 src/mred/wrap/mred.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ()