(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 7872fec0d99..935555f5b6b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2009-08-10  Ken Raeburn  <raeburn@raeburn.org>
 
+        * 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 07663830248..61abf32138d 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))