diff --git a/vendor/html/src/Html.ml b/vendor/html/src/Html.ml
index bfec0b3..d8263eb 100644
--- a/vendor/html/src/Html.ml
+++ b/vendor/html/src/Html.ml
@@ -181,7 +181,7 @@ let on_double_click ?confirm handler =
 (* Elem *)
 
 module Elem_util = struct
-  let mount ~parent ?(insert = Dom.Node.append parent) html =
+  let mount ~parent ?(insert = Dom.Node.append_child ~parent) html =
     html.mount ~parent ~insert
 
   let unmount html = html.unmount ()
diff --git a/vendor/stdweb/examples/Events.ml b/vendor/stdweb/examples/Events.ml
index 0fde7c4..eeca8f1 100644
--- a/vendor/stdweb/examples/Events.ml
+++ b/vendor/stdweb/examples/Events.ml
@@ -19,9 +19,9 @@ let () =
     Dom.Node.set_text_content lnk "Link";
     Dom.Node.set_href lnk "#";
 
-    Dom.Node.append main btn;
-    Dom.Node.append main inp;
-    Dom.Node.append main lnk;
+    Dom.Node.append_child ~parent:main btn;
+    Dom.Node.append_child ~parent:main inp;
+    Dom.Node.append_child ~parent:main lnk;
 
     (* Element listener *)
     Dom.Node.bind btn Dom.Event.click (fun ev ->