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

diff --git a/v7/src/edwin/dirunx.scm b/v7/src/edwin/dirunx.scm
index 2577f03f1b3fa6723c3bd316e0c0651f9acf702a..31eb351c116ca1ed4e7b4a9a4392a3b6c49bcec9 100644 (file)
--- a/v7/src/edwin/dirunx.scm
+++ b/v7/src/edwin/dirunx.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: dirunx.scm,v 1.5 1994/09/14 20:43:37 cph Exp $
+;;;    $Id: dirunx.scm,v 1.6 1994/09/14 20:50:07 cph Exp $
 ;;;
 ;;;    Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -101,7 +101,9 @@ The files are compressed or uncompressed using gzip."
                      (pathname-new-type
                       pathname
                       (and (not decompress?)
-                           (string-append (or type "") ".gz")))
+                           (if (string? type)
+                               (string-append type ".gz")
+                               "gz")))
                      lstart))))))))
       (if (positive? n)
          (message "Compressed or uncompressed " n " files.")))))