1 files changed, 2 insertions, 1 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 497c01c707d..b955c951ec8 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1280,7 +1280,8 @@ compact_small_strings ()
               /* Copy, and update the string's `data' pointer.  */
               if (from != to)
                 {
-                  bcopy (from, to, nbytes);
+                  xassert (tb != b || to <= from);
+                  safe_bcopy ((char *) from, (char *) to, nbytes);
                   to->string->data = to->u.data;
                 }