diff --git a/code/error.lisp b/code/error.lisp
index 730df07399d1ac4bd2718172585689da77211626..2acb9c654c0e8f0ef7d92a1ad2b8bbe56dc4467c 100644
--- a/code/error.lisp
+++ b/code/error.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.25 1993/07/03 17:08:32 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.26 1993/07/20 10:59:22 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -518,8 +518,9 @@
 					'simple-condition 'signal))
         (*handler-clusters* *handler-clusters*))
     (when (typep condition *break-on-signals*)
-      (break "~A~%Break entered because of *break-on-signals*."
-	     condition))
+      (let ((*break-on-signals* nil))
+	(break "~A~%Break entered because of *break-on-signals* (now NIL.)"
+	       condition)))
     (loop
       (unless *handler-clusters* (return))
       (let ((cluster (pop *handler-clusters*)))