X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-pathname.lisp;h=6f8f1a0c2fff67dcc8f7ad82409bf981dd503f59;hb=0d5ff04e2ced1cbb2979dd1a7fcfd7ba3d6da7c1;hp=33f4d8dff7ae011c6981d68fb5bf51daf0687a0c;hpb=6584a2c88efaa6931083721adae2f9f10e0fefd5;p=sbcl.git

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index 33f4d8d..6f8f1a0 100644
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -1270,8 +1270,9 @@ PARSE-NAMESTRING."
                (frob %pathname-name)
                (frob %pathname-type)
                (if (eq from-host *unix-host*)
-                   (if (eq (%pathname-version to) :wild)
-                       (%pathname-version from)
+                   (if (or (eq (%pathname-version to) :wild)
+                           (eq (%pathname-version to) nil))
+                       (%pathname-version source)
                        (%pathname-version to))
                    (frob %pathname-version)))))))))