diff --git a/examples/shapes/shapes_lines_bezier.ml b/examples/shapes/shapes_lines_bezier.ml
index b2e8f4b..16c762c 100644
--- a/examples/shapes/shapes_lines_bezier.ml
+++ b/examples/shapes/shapes_lines_bezier.ml
@@ -93,7 +93,7 @@ let rec loop state =
       let { State.line; mouse_pos = _ } = state in
       let mouse_pos = get_mouse_position () in
       let line = Line.step ~mouse_pos line in
-      let state = { state with line } in
+      let state = { State.line; mouse_pos } in
       State.draw state;
       loop state