Fix type error in M-x dired-do-compress.

diff --git a/v7/src/edwin/dirunx.scm b/v7/src/edwin/dirunx.scm
index 83fd721498851a51f1349cf980474e439f5ef518..2577f03f1b3fa6723c3bd316e0c0651f9acf702a 100644 (file)
--- 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