fixed pr 7771

svn: r1668 original commit: 388b9deff65f1f29a1cf2e0155ecadef5484f344
2005-12-22 12:54:21 +00:00 · 2005-12-22 12:54:21 +00:00 · 4daf75bcb3
commit 4daf75bcb3
parent 61d2aa1a77
1 changed files with 1 additions and 1 deletions
--- 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)))