diff --git a/common/src/app/common/types/path/helpers.cljc b/common/src/app/common/types/path/helpers.cljc
index 1f1218efd9..e7ef6c6336 100644
--- a/common/src/app/common/types/path/helpers.cljc
+++ b/common/src/app/common/types/path/helpers.cljc
@@ -403,7 +403,7 @@
 
         (if (>= to 1)
           result
-          (recur to result))))))
+          (recur (long to) result))))))
 
 (defn curve-split
   "Splits a curve into two at the given parametric value `t`.
diff --git a/common/src/app/common/types/path/subpath.cljc b/common/src/app/common/types/path/subpath.cljc
index b7f13a0aea..6082117cae 100644
--- a/common/src/app/common/types/path/subpath.cljc
+++ b/common/src/app/common/types/path/subpath.cljc
@@ -190,4 +190,4 @@
           (recur (first subpath)
                  (rest subpath)
                  first-point
-                 signed-area))))))
+                 (long signed-area)))))))