diff --git a/src/uxbox/main/geom.cljs b/src/uxbox/main/geom.cljs
index 64bc4d7a45..9ae97525fb 100644
--- a/src/uxbox/main/geom.cljs
+++ b/src/uxbox/main/geom.cljs
@@ -245,6 +245,16 @@
       :bottom (assoc shape :ry (max 0 (+ (:ry shape) dy)))
       :left (assoc shape :rx (max 0 (+ (:rx shape) dx))))))
 
+;; --- Paths
+
+(defn update-path-point
+  "Update a concrete point in the path.
+
+  The point should exists before, this function
+  does not adds it automatically."
+  [shape index point]
+  (assoc-in shape [:points index] point))
+
 ;; --- Resize (Absolute)
 
 (declare resize-rect)