diff --git a/.local/share/common-lisp/source/ambrevar/storage.lisp b/.local/share/common-lisp/source/ambrevar/storage.lisp
index 67e3fa5c..b463d5f6 100644
--- a/.local/share/common-lisp/source/ambrevar/storage.lisp
+++ b/.local/share/common-lisp/source/ambrevar/storage.lisp
@@ -20,11 +20,13 @@
                         (first (json:decode-json-from-string
                                 (cmd:$cmd "findmnt -n --fstab --output TARGET --json")))))))
 
+(defun absolute-pathname (path-designator)
+  (uiop:ensure-pathname path-designator
+                        :truenamize t))
+
 (defun absolute-path (path-designator)
   (uiop:native-namestring
-   (uiop:truename* (if (pathnamep path-designator)
-                       path-designator
-                       (uiop:parse-native-namestring path-designator)))))
+   (absolute-pathname path-designator)))
 
 (defun subpath (root &rest subdirs)
   "Return merged paths as a string.