minor bugfix

svn: r16130 original commit: cde6f8818b32219a0238a5585bf77ba118282cc5
2009-09-26 15:38:13 +00:00 · 2009-09-26 15:38:13 +00:00 · d5e2cda888
commit d5e2cda888
parent 9c94757479
1 changed files with 4 additions and 1 deletions
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@ -2255,7 +2255,10 @@ WARNING: printf is rebound in the body of the unit to always
                 (set! unread-start-point (+ unread-start-point inserted-count))
                 
                 (insert (if (is-a? str/snp snip%)
-                             (send str/snp copy)
+                             (let ([s (send str/snp copy)])
+                               (if (is-a? s snip%)
+                                   s
+                                   (new snip%)))
                             str/snp)
                         old-insertion-point
                         old-insertion-point