diff --git a/src/insdel.c b/src/insdel.c
index 0c13e3a8f8e..711e272da59 100644
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -366,7 +366,7 @@ insert_from_string (string, pos, length, inherit)
   Z += length;
 
   /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */
-  graft_intervals_into_buffer (XSTRING (string)->intervals, point,
+  graft_intervals_into_buffer (XSTRING (string)->intervals, point, length,
 			       current_buffer, inherit);
 
   SET_PT (point + length);