diff --git a/tools/clog-builder-dir-tree.lisp b/tools/clog-builder-dir-tree.lisp
index eb6c967..77311fa 100644
--- a/tools/clog-builder-dir-tree.lisp
+++ b/tools/clog-builder-dir-tree.lisp
@@ -181,10 +181,10 @@
                (declare (ignore obj))
                (setf (text tree) "")
                (let* ((root (text-value root-dir))
-                      (tname (uiop:truename* root))
-                      (dir   (format nil "~A" (directory-namestring (if tname
+                      (tname (truename root))
+                      (dir   (format nil "~A" (uiop:native-namestring (directory-namestring (if tname
                                                                         tname
-                                                                        "")))))
+                                                                        ""))))))
                  (setf (text-value root-dir) dir)
                  (create-clog-tree tree
                                    :fill-function (lambda (obj)