diff --git a/jupyter/src/comm/manager.ml b/jupyter/src/comm/manager.ml
index 5f7d4034..f18f05b0 100644
--- a/jupyter/src/comm/manager.ml
+++ b/jupyter/src/comm/manager.ml
@@ -91,7 +91,7 @@ struct
   let default = `Assoc []
 
   let create ?(data = default) target =
-    let comm_id = Uuidm.(to_string (create `V4)) in
+    let comm_id = Uuidm.(to_string (v `V4)) in
     ignore (register target comm_id) ;
     Jupyter_notebook__Unsafe.send_iopub
       (IOPUB_COMM_OPEN {
diff --git a/jupyter/src/core/message.ml b/jupyter/src/core/message.ml
index d1b8c981..efd200db 100644
--- a/jupyter/src/core/message.ml
+++ b/jupyter/src/core/message.ml
@@ -92,7 +92,7 @@ let epoch_to_iso8601_string epoch =
 
 let create_next ?(time = Unix.gettimeofday ()) ~content_to_yojson parent content =
   let date = Some (epoch_to_iso8601_string time) in
-  let msg_id = Uuidm.(to_string (create `V4)) in
+  let msg_id = Uuidm.(to_string (v `V4)) in
   let msg_type =
     match content_to_yojson content with
     | `List (`String msg_type :: _) -> msg_type
diff --git a/jupyter/src/notebook/jupyter_notebook.ml b/jupyter/src/notebook/jupyter_notebook.ml
index 06ced5d7..ba01480a 100644
--- a/jupyter/src/notebook/jupyter_notebook.ml
+++ b/jupyter/src/notebook/jupyter_notebook.ml
@@ -40,7 +40,7 @@ let display ?ctx ?display_id ?(metadata = `Assoc []) ?(base64 = false) mime data
   let send content = Unsafe.send_iopub ?ctx content in
   match display_id with
   | None ->
-    let display_id = Uuidm.(to_string (create `V4)) in
+    let display_id = Uuidm.(to_string (v `V4)) in
     send (IOPUB_DISPLAY_DATA {
         display_data = `Assoc [mime, `String data];
         display_metadata = metadata;