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