diff --git a/src/top/utop.el b/src/top/utop.el
index 5e50b78..64b24ab 100644
--- a/src/top/utop.el
+++ b/src/top/utop.el
@@ -272,9 +272,19 @@ modes you need to set these variables:
 " major-mode))))
    choices))
 
+(defun utop-tuareg-next-phrase ()
+  "Move to the next phrase after point."
+  (let* ((pos (tuareg--after-double-colon))
+         (pos (if pos pos (point)))
+         (phrase (tuareg-discover-phrase pos)))
+    (when phrase
+      (goto-char (caddr phrase))
+      (tuareg--skip-double-colon)
+      (tuareg-skip-blank-and-comments))))
+
 (defun utop-compat-next-phrase-beginning ()
   (funcall
-   (utop-compat-resolve '(tuareg-next-phrase
+   (utop-compat-resolve '(utop-tuareg-next-phrase
                           typerex-skip-to-end-of-phrase
                           caml-skip-to-end-of-phrase
                           reason-next-phrase))))