diff --git a/backend/vendor/storages/util.clj b/backend/vendor/storages/util.clj
index 0d367a398..33f624cb7 100644
--- a/backend/vendor/storages/util.clj
+++ b/backend/vendor/storages/util.clj
@@ -108,6 +108,14 @@
   [path]
   (first (split-ext path)))
 
+(defn resolve
+  "Resolve path on top of an other path."
+  [base path]
+  (let [^Path base (pt/-path base)
+        ^Path path (pt/-path path)]
+    (-> (.resolve base path)
+        (.normalize))))
+
 (defn list-directory
   [path]
   (let [path (pt/-path path)]