Fix typo.

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 3fb6c216ce99e51339a453bc9e2027e7194a80eb..cdbae7e4ff9607b2e9d1a026537240d10e69460c 100644 (file)
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: dos.scm,v 1.29 1995/10/25 02:19:50 cph Exp $
+;;;    $Id: dos.scm,v 1.30 1995/10/25 05:38:47 cph Exp $
 ;;;
 ;;;    Copyright (c) 1992-95 Massachusetts Institute of Technology
 ;;;
@@ -140,10 +140,10 @@
   ;;   'DIRECTORY means FILE is a directory and a full listing is expected.
   ;;   'FILE means FILE itself should be listed, and not its contents.
   ;; SWITCHES are ignored.
-  (generate-dired-listing (if (eq? type 'DIRECTORY)
-                             (pathname-as-directory file)
-                             file)
-                         mark))
+  (generate-dired-listing! (if (eq? type 'DIRECTORY)
+                              (pathname-as-directory file)
+                              file)
+                          mark))
 
 (define (generate-dired-listing! pathname point)
   (let ((files (directory-read pathname)))