From 8bba3a13e134bf2ad0c3db40cfb91ba91fd183d5 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 4 Dec 2001 13:06:12 +0000
Subject: [PATCH] Adjust top of stack as well.

---
 scheme/vm/gc-root.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scheme/vm/gc-root.scm b/scheme/vm/gc-root.scm
index 591fc06..8e16463 100644
--- a/scheme/vm/gc-root.scm
+++ b/scheme/vm/gc-root.scm
@@ -68,6 +68,7 @@
   (let ((okay? (address= *external-root-stack*
 			 *external-root-stack-base*)))
     (set! *external-root-stack-base* old-base)
+    (set! *external-root-stack* old-base)
     okay?))
 
 ;----------------