Fix typo.

diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index d732dd6a7dc9d74a2c7645845af58d1c1322fcba..b9aacb4ea61a2be34679e2b42121ad25ce6d30fa 100644 (file)
--- a/v7/src/imail/imail-util.scm
+++ b/v7/src/imail/imail-util.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-util.scm,v 1.5 2000/02/03 04:48:54 cph Exp $
+;;; $Id: imail-util.scm,v 1.6 2000/04/06 03:14:36 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -158,7 +158,7 @@
                       ((not (pair? tokens)) count))))))
           (let loop
               ((tokens (cdr tokens))
-               (index (copy (car tokens) 0)))
+               (index (string-move! (car tokens) string 0)))
             (if (pair? tokens)
                 (loop (cdr tokens)
                       (string-move! (car tokens)