diff --git a/ice-9/emacs.scm b/ice-9/emacs.scm
index 7dc0ebd65..05577d047 100644
--- a/ice-9/emacs.scm
+++ b/ice-9/emacs.scm
@@ -261,3 +261,7 @@
 (variable-set! (builtin-variable '%%emacs-frame-eval) emacs-frame-eval)
 (variable-set! (builtin-variable '%%emacs-symdoc) emacs-symdoc)
 (variable-set! (builtin-variable '%%apropos-internal) apropos-internal)
+
+;;; Set backtrace width to 60
+
+(debug-set! width 60)