(concat): Don't re-set string length to its current value.

2 files changed, 3 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 7872fec0d9..935555f5b6 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2009-08-10  Ken Raeburn  <[email protected]>
 
+	* fns.c (concat): Don't re-set string length to its current
+	value.
+
 	* coding.h (decode_coding_string, encode_coding_string): Use
 	SBYTES macro.
 
diff --git a/src/fns.c b/src/fns.c
index 0766383024..61abf32138 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -661,7 +661,6 @@ concat (nargs, args, target_type, last_special)
 	    }
 	  toindex_byte += thislen_byte;
 	  toindex += thisleni;
-	  STRING_SET_CHARS (val, SCHARS (val));
 	}
       /* Copy a single-byte string to a multibyte string.  */
       else if (STRINGP (this) && STRINGP (val))