diff --git a/src/top/utop.el b/src/top/utop.el
index 1207c89..e0179ea 100644
--- a/src/top/utop.el
+++ b/src/top/utop.el
@@ -1124,6 +1124,7 @@ See https://github.com/ocaml-community/utop for configuration information."))
   :keymap (let ((map (make-sparse-keymap)))
             (define-key map (kbd "C-c C-s") #'utop)
             (define-key map (kbd "C-x C-e") #'utop-eval-phrase)
+            (define-key map (kbd "C-c C-e") #'utop-eval-phrase)
             (define-key map (kbd "C-x C-r") #'utop-eval-region)
             (define-key map (kbd "C-c C-b") #'utop-eval-buffer)
             (define-key map (kbd "C-c C-k") #'utop-kill)