Fix typo.

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index e6156692941a42653d5e47020efae2e4104478e7..c8943a6f4e9a6df9d51befc8449fff548a40c2c8 100644 (file)
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: filcom.scm,v 1.200 1999/01/28 06:14:03 cph Exp $
+;;; $Id: filcom.scm,v 1.201 1999/01/29 04:50:01 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -680,8 +680,7 @@ Prefix arg means treat the plaintext file as binary data."
 (define (prompt-for-existing-file prompt default . options)
   (->namestring
    (prompt-for-pathname* prompt default file-non-directory?
-                        'REQUIRE-MATCH? #t
-                        options)))
+                        (cons* 'REQUIRE-MATCH? #t options))))
 
 (define (file-non-directory? file)
   (and (file-exists? file)