diff --git a/src/top/utop.el b/src/top/utop.el
index ee646ab..6a01528 100644
--- a/src/top/utop.el
+++ b/src/top/utop.el
@@ -603,7 +603,7 @@ If ADD-TO-HISTORY is t then the input will be added to history."
           ;; Make it appear
           (display-buffer buf)
           ;; Put it in utop mode
-          (with-current-buffer buf (utop-mode arguments))))))))
+          (with-current-buffer buf (utop-mode))))))))
 
 (defun utop-eval (start end)
   "Eval the given region in utop."