diff --git a/libc/xs/storage/storage.xs b/libc/xs/storage/storage.xs
index 1248ad17a..e23dc850e 100644
--- a/libc/xs/storage/storage.xs
+++ b/libc/xs/storage/storage.xs
@@ -228,7 +228,7 @@ INPUT:
 CODE:
     if (storageFeature(self, storageFeaturePath))
         storagePathCreateP(
-            self, pathExp, .mode = mode ? cvtZToIntBase(strPtr(mode), 8) : 0, .errorOnExists = !ignoreExists,
+            self, pathExp, .mode = mode ? cvtZToMode(strPtr(mode)) : 0, .errorOnExists = !ignoreExists,
             .noParentCreate = !createParent);
 CLEANUP:
     }
diff --git a/src/perl/libc.auto.c b/src/perl/libc.auto.c
index b61804097..64130e0ae 100644
--- a/src/perl/libc.auto.c
+++ b/src/perl/libc.auto.c
@@ -1206,7 +1206,7 @@ XS_EUPXS(XS_pgBackRest__LibC__Storage_pathCreate)
 ;
     if (storageFeature(self, storageFeaturePath))
         storagePathCreateP(
-            self, pathExp, .mode = mode ? cvtZToIntBase(strPtr(mode), 8) : 0, .errorOnExists = !ignoreExists,
+            self, pathExp, .mode = mode ? cvtZToMode(strPtr(mode)) : 0, .errorOnExists = !ignoreExists,
             .noParentCreate = !createParent);
     }
     MEM_CONTEXT_XS_TEMP_END();