From ff10493a0e5caf2b9c34520eefb49ac532f7a2be Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 19 Mar 2010 19:55:02 +0000 Subject: [PATCH] fix to a bug detected by random testing svn: r18586 --- collects/mred/private/wxme/snip.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/wxme/snip.ss b/collects/mred/private/wxme/snip.ss index f6281dccbb..95c1c2f685 100644 --- 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]])