From da2d6587ded126cacc329444704a3efb701aade6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 14 Sep 1994 20:43:37 +0000
Subject: [PATCH] Fix type error in M-x dired-do-compress.

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

diff --git a/v7/src/edwin/dirunx.scm b/v7/src/edwin/dirunx.scm
index 83fd72149..2577f03f1 100644
--- a/v7/src/edwin/dirunx.scm
+++ b/v7/src/edwin/dirunx.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dirunx.scm,v 1.4 1994/08/04 08:49:16 cph Exp $
+;;;	$Id: dirunx.scm,v 1.5 1994/09/14 20:43:37 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -85,9 +85,10 @@ The files are compressed or uncompressed using gzip."
 		 (let ((type (pathname-type pathname))
 		       (namestring (->namestring pathname)))
 		   (let ((decompress?
-			  (or (string=? "gz" type)
-			      (string=? "z" type)
-			      (string=? "Z" type))))
+			  (and (string? type)
+			       (or (string=? "gz" type)
+				   (string=? "z" type)
+				   (string=? "Z" type)))))
 		     (message (if decompress? "Unc" "C")
 			      "ompressing file `"
 			      namestring
-- 
2.25.1