From 4967573a21f1efee0df91cc9fd9070a97529c873 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Apr 2000 03:14:36 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/imail/imail-util.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index d732dd6a7..b9aacb4ea 100644
--- 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)
-- 
2.25.1