Index: /trunk/source/level-1/l1-io.lisp
===================================================================
--- /trunk/source/level-1/l1-io.lisp	(revision 8529)
+++ /trunk/source/level-1/l1-io.lisp	(revision 8530)
@@ -224,5 +224,5 @@
 (defvar *current-length* nil) ; must be nil at top level
 
-(defvar *print-catch-errors* t)
+(defvar *print-catch-errors* nil)
 
 ;;;; ======================================================================