fix to a bug detected by random testing

svn: r18586
2010-03-19 19:55:02 +00:00 · 2010-03-19 19:55:02 +00:00 · ff10493a0e
commit ff10493a0e
parent 23d16b904f
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/wxme/snip.ss
+++ b/collects/mred/private/wxme/snip.ss
@ -242,7 +242,7 @@
        (if (not str)
            (for ([i (in-range num)])
              (string-set! s i #\.))
-            (string-copy! s 0 str 0 num)))))
+            (string-copy! s 0 str 0 (min num (string-length str) (string-length s)))))))

  (def/public (get-text [exact-nonnegative-integer? offset] [exact-integer? num] 
                        [any? [flattened? #f]])