From 289e908ab2a89ba57f7b7f2ba1b22fedaa29ae19 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 5 Sep 2014 22:02:13 -0600
Subject: [PATCH] string-normalize-...: fix memcpy that should be memmove

---
 racket/src/racket/src/string.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/string.c b/racket/src/racket/src/string.c
index f1fdb172c0..b1eb30739c 100644
--- a/racket/src/racket/src/string.c
+++ b/racket/src/racket/src/string.c
@@ -4399,7 +4399,7 @@ static Scheme_Object *normalize_d(Scheme_Object *o, int kompat)
       }
       if (!klen)
 	s2[j++] = tmp;
-      memcpy(s2 + j, s2 + len + delta - snds, snds * sizeof(mzchar));
+      memmove(s2 + j, s2 + len + delta - snds, snds * sizeof(mzchar));
       j += snds;
     } else if ((s[i] >= MZ_JAMO_SYLLABLE_START)
 	       && (s[i] <= MZ_JAMO_SYLLABLE_END)) {