From eb7ec1e820311ed2227b9ec0bb0de18e8e452cc6 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Wed, 20 Aug 1997 17:42:15 +0000
Subject: [PATCH] * emacs.scm (emacs-load): Adjust stack narrowing.

---
 ice-9/ChangeLog | 2 ++
 ice-9/emacs.scm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

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 ()