diff --git a/code/interr.lisp b/code/interr.lisp
index 18f1f41d434141504a02167e76c69631babf5ec5..c772437b4c3293bd1f62b5410b25d333a6e32f7e 100644
--- a/code/interr.lisp
+++ b/code/interr.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/interr.lisp,v 1.20 1992/01/21 17:25:01 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.21 1992/01/21 23:41:15 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -593,7 +593,7 @@
 	    (numberp *current-error-depth*))
        (let ((*current-error-depth* (1+ *current-error-depth*)))
 	 (if (> *current-error-depth* *maximum-error-depth*)
-	     (error-error "Help! " *current-error-depth* " nested errors."
+	     (error-error "Help! " *current-error-depth* " nested errors.  "
 			  "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.")
 	     (progn ,@forms)))
        (%primitive halt)))
@@ -636,8 +636,9 @@
        (throw 'lisp::top-level-catcher nil)))
 
     (with-standard-io-syntax
-      (dolist (item messages) (princ item *terminal-io*))
-      (debug:internal-debug))))
+      (let ((*print-readably* nil))
+	(dolist (item messages) (princ item *terminal-io*))
+	(debug:internal-debug)))))
 
 
 ;;;; Fetching errorful function name.
@@ -645,15 +646,15 @@
 ;;; Used to prevent infinite recursive lossage when we can't find the caller
 ;;; for some reason.
 ;;;
-(defvar *finding-caller* nil)
+(defvar *finding-name* nil)
 
 ;;; FIND-CALLER-NAME  --  Internal
 ;;;
 (defun find-caller-name ()
-  (if *finding-caller*
+  (if *finding-name*
       "<error finding name>"
       (handler-case
-	  (let ((*finding-caller* t))
+	  (let ((*finding-name* t))
 	    (di:debug-function-name
 	     (di:frame-debug-function
 	      (di:frame-down (di:frame-down (di:top-frame))))))