diff --git a/lisp/l/toplevel.l b/lisp/l/toplevel.l
index a821a242d..154e35d2b 100644
--- a/lisp/l/toplevel.l
+++ b/lisp/l/toplevel.l
@@ -293,8 +293,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