From 388b9deff65f1f29a1cf2e0155ecadef5484f344 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 22 Dec 2005 12:54:21 +0000 Subject: [PATCH] fixed pr 7771 svn: r1668 --- collects/framework/private/scheme.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index 05d2919213..c2f1d04c94 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -219,7 +219,7 @@ (let loop ([snips (reverse snips)]) (cond [(null? snips) (void)] - [else (send text insert (car snips) pos pos) + [else (send text insert (send (car snips) copy) pos pos) (loop (cdr snips))]))) (send text end-edit-sequence)))