diff --git a/tools/clog-builder-dir-tree.lisp b/tools/clog-builder-dir-tree.lisp
index 7cadc09..1583bfd 100644
--- a/tools/clog-builder-dir-tree.lisp
+++ b/tools/clog-builder-dir-tree.lisp
@@ -177,9 +177,9 @@
                (setf (text tree) "")
                (let* ((root (text-value root-dir))
                       (tname (truename root))
-                      (dir   (format nil "~A" (uiop:native-namestring (directory-namestring (if tname
-                                                                        tname
-                                                                        ""))))))
+                      (dir   (format nil "~A" (uiop:native-namestring (if tname
+                                                                          tname
+                                                                          "")))))
                  (setf (text-value root-dir) dir)
                  (create-clog-tree tree
                                    :fill-function (lambda (obj)