diff --git a/lisp/l/toplevel.l b/lisp/l/toplevel.l
index 18e6c2ed5..a953d4777 100644
--- a/lisp/l/toplevel.l
+++ b/lisp/l/toplevel.l
@@ -291,8 +291,8 @@
    (format *error-output* "~C[0m~%"  #x1b)
    (let ((*replevel* (1+ *replevel*))
 	 (*reptype* "E"))
-      (catch *replevel* (reploop #'toplevel-prompt)))
-   (throw *replevel* nil))
+     (while (catch *replevel* (reploop #'toplevel-prompt))))
+   (throw *replevel* t))
 
 ;;;
 ;;; default toplevel