0.8.18.16:

[sbcl.git] / src / code / target-char.lisp

diff --git a/src/code/target-char.lisp b/src/code/target-char.lisp
index e534058..40352d6 100644 (file)
--- a/src/code/target-char.lisp
+++ b/src/code/target-char.lisp
@@ -41,7 +41,7 @@
                                        '(:relative :up :up "output")
                                        :name "ucd"
                                        :type "dat")
-                                      sb!xc:*compile-file-pathname*)
+                                      sb!xc:*compile-file-truename*)
                                      :direction :input
                                      :element-type '(unsigned-byte 8))
                (let* ((length (file-length stream))