diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index a4e2ff780..ce01cbe50 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,5 +1,7 @@
 Wed Aug 20 13:21:11 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
 
+	* emacs.scm (emacs-load): Adjust stack narrowing.
+
 	* syncase.scm: Also turn off debugging evaluator and recording of
 	procedure names during loading of psyntax.pp.
 
diff --git a/ice-9/emacs.scm b/ice-9/emacs.scm
index ba616665e..c80eddfd7 100644
--- a/ice-9/emacs.scm
+++ b/ice-9/emacs.scm
@@ -148,7 +148,7 @@
 				  '()))
 		      ((eq? key 'exit))
 		      (else
-		       (save-stack)
+		       (save-stack 2)
 		       (catch 'end-of-chunk
 			      (lambda ()
 				(let loop ()