diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp
index 199536072f33715a03671da548f1ce326b35738b..13533e9da483e5a42c4a741f34e766d3bf71a216 100644
--- a/src/compiler/ir1util.lisp
+++ b/src/compiler/ir1util.lisp
@@ -1665,7 +1665,7 @@
   "The value for *Print-Level* when printing compiler error messages.")
 (defvar *error-print-length* 5
   "The value for *Print-Length* when printing compiler error messages.")
-(defvar *error-print-lines* 5
+(defvar *error-print-lines* 10
   "The value for *Print-Lines* when printing compiler error messages.")
 
 (defvar *enclosing-source-cutoff* 1