From f6a364830b838d4fd4541efaa5dbcd1ba454e2fd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 21 May 2000 00:03:32 +0000
Subject: [PATCH] Fix typo and also type error.

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

diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index 4cf8edba9..d6aabe5e5 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.22 2000/05/20 20:08:37 cph Exp $
+;;; $Id: imail-util.scm,v 1.23 2000/05/21 00:03:32 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -292,7 +292,7 @@
 
 (define (derived-broken-pipe? condition)
   (and (eq? (condition/type condition) condition-type:derived-port-error)
-       (broken-pipe? (derived-condition condition))))
+       (broken-pipe? (derived-port-condition condition))))
 
 (define derived-port-condition
   (condition-accessor condition-type:derived-port-error 'CONDITION))
@@ -384,8 +384,9 @@
 	     (cond ((not (pair? pathnames))
 		    (if-not-found))
 		   ((pair? (cdr pathnames))
-		    (if-not-unique (string-greatest-common-prefix
-				    (map ->namestring pathnames))
+		    (if-not-unique (->pathname
+				    (string-greatest-common-prefix
+				     (map ->namestring pathnames)))
 				   (lambda () pathnames)))
 		   ((string-null? (file-namestring (car pathnames)))
 		    (if-directory (car pathnames)))
-- 
2.25.1