Index: ./src/lsp/top.lsp
===================================================================
RCS file: /cvsroot/ecls/ecl/src/lsp/top.lsp,v
retrieving revision 1.91
diff -u -r1.91 top.lsp
--- ./src/lsp/top.lsp	22 Oct 2010 22:55:07 -0000	1.91
+++ ./src/lsp/top.lsp	19 Jan 2011 20:49:59 -0000
@@ -573,8 +573,9 @@
 			    ;; We are told to let the debugger handle this.
 			    )
 			   (t
-			    (format t "~&Debugger received error: ~A~%~
-                                         Error flushed.~%" condition)
+			    (format t "~&Debugger received error of type: ~A~%~A~%~
+                                         Error flushed.~%"
+				    (type-of condition) condition)
 			    (clear-input)
 			    (return-from rep t) ;; go back into the debugger loop.
 			    )
@@ -660,7 +661,8 @@
     (handler-bind 
      ((error (lambda (condition)
 	       (unless *debug-tpl-commands*
-		 (format t "~&Command aborted.~%Received condition: ~A" condition)
+		 (format t "~&Command aborted.~%Received condition of type: ~A~%~A"
+			 (type-of condition) condition)
 		 (clear-input)
 		 (return-from tpl-command nil)
 		 )
@@ -1417,7 +1419,8 @@
            (*print-pretty* nil)
            (*print-circle* t)
            (*readtable* (or *break-readtable* *readtable*))
-           (*break-message* (format nil "~&~A~%" condition))
+           (*break-message* (format nil "~&Condition of type: ~A~%~A~%"
+				    (type-of condition) condition))
            (*break-level* (1+ *break-level*))
            (break-level *break-level*)
            (*break-env* nil))