From 0dc86774a4f4610c1d890f1e749736234acdb1cb Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Oct 1995 05:38:47 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/edwin/dos.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 3fb6c216c..cdbae7e4f 100644
--- 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)))
-- 
2.25.1