pathnames1.13

Gbp-Pq: Name pathnames1.13

diff --git a/lsp/gcl_iolib.lsp b/lsp/gcl_iolib.lsp
index 60a18d9959b4fe051a7343cca46159ba1c05af48..d3bca684ca79d212d2ce5d1d37dea311cdb7bf85 100755 (executable)
--- a/lsp/gcl_iolib.lsp
+++ b/lsp/gcl_iolib.lsp
@@ -460,7 +460,8 @@
 (defun load-pathname-exists (z)
   (or (probe-file z)
       (when *allow-gzipped-file*
-       (probe-file (string-concatenate (namestring z) ".gz")))))
+       (when (probe-file (string-concatenate (namestring z) ".gz"))
+         z))))
 
 (defun load-pathname (p print if-does-not-exist external-format
                        &aux (pp (merge-pathnames p))