Fix typo.

diff --git a/v7/src/edwin/shell.scm b/v7/src/edwin/shell.scm
index df9a71e9903c7c0fd06fb6657d203077598fd29c..037fba4aac582555e30b371d8879818fe065f878 100644 (file)
--- a/v7/src/edwin/shell.scm
+++ b/v7/src/edwin/shell.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: shell.scm,v 1.20 1999/08/20 20:35:42 cph Exp $
+$Id: shell.scm,v 1.21 1999/08/24 02:59:37 cph Exp $
 
 Copyright (c) 1991-1999 Massachusetts Institute of Technology
 
@@ -157,7 +157,7 @@ Otherwise, one argument `-i' is passed to the shell."
                   (let ((eoc
                          (let ((r (match command start)))
                            (and r
-                                (re-match-end-index r)))))
+                                (re-match-end-index 0 r)))))
                     (cond ((not eoc) #f)
                           ((match "\\s *\\(\;\\|$\\)" eoc) "")
                           ((match "\\s +\\([^ \t\;]+\\)\\s *\\(\;\\|$\\)" eoc)