diff --git a/src/app/MetaBrush/Document/SubdivideStroke.hs b/src/app/MetaBrush/Document/SubdivideStroke.hs
index 265b388..5bf9791 100644
--- a/src/app/MetaBrush/Document/SubdivideStroke.hs
+++ b/src/app/MetaBrush/Document/SubdivideStroke.hs
@@ -161,7 +161,7 @@ subdivide c doc@( Document { zoomFactor } ) =
                         let
                           bez_start, bez_end :: Curve Open ( CachedStroke RealWorld ) ( PointData brushParams )
                           bez_start = Bezier3To q1 q2 ( NextPoint subdiv ) ( invalidateCache dat )
-                          bez_end   = Bezier3To r1 r2 ( NextPoint sp2    ) ( invalidateCache dat )
+                          bez_end   = Bezier3To r1 r2 ( NextPoint sp3    ) ( invalidateCache dat )
                         put ( Just txt )
                         pure ( bez_start :<| bez_end :<| Empty )
                     else pure $ Seq.singleton bez3