diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index bc7003540..579c4fc5c 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2674,13 +2674,6 @@ module '(ice-9 q) '(make-q q-length))}."
 ;;; {Running Repls}
 ;;;
 
-(define (repl read evaler print)
-  (let loop ((source (read (current-input-port))))
-    (print (evaler source))
-    (loop (read (current-input-port)))))
-
-;; A provisional repl that acts like the SCM repl:
-;;
 (define (default-pre-unwind-handler key . args)
   ;; Narrow by two more frames: this one, and the throw handler.
   (save-stack 2)
diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index 10c33f170..710d40cde 100644
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -55,7 +55,8 @@
             assert-repl-print-unspecified
             assert-repl-verbosity
             set-repl-prompt!
-            set-batch-mode?!)
+            set-batch-mode?!
+            repl)
 
   #:replace (module-ref-submodule module-define-submodule!))
 
@@ -608,3 +609,10 @@ the `(system repl common)' module.")
      "`set-batch-mode?!' with an argument of `#f' is deprecated. Use the
 `*repl-level*' fluid instead.")
     #t)))
+
+(define (repl read evaler print)
+  (issue-deprecation-warning
+   "`repl' is deprecated. Define it yourself.")
+  (let loop ((source (read (current-input-port))))
+    (print (evaler source))
+    (loop (read (current-input-port)))))