fixed pr 7771

svn: r1668
2005-12-22 12:54:21 +00:00 · 2005-12-22 12:54:21 +00:00 · 388b9deff6
commit 388b9deff6
parent 511d45be58
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)))