From 69087ede9b7a4bada76d24b20f502f9cec2febcd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 9 Aug 1989 14:43:20 +0000
Subject: [PATCH] Fix typo in previous change.

---
 v7/src/edwin/buffer.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index 033e838c8..9326fb816 100644
--- a/v7/src/edwin/buffer.scm
+++ b/v7/src/edwin/buffer.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffer.scm,v 1.132 1989/08/09 13:16:48 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffer.scm,v 1.133 1989/08/09 14:43:20 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -307,7 +307,8 @@ The buffer is guaranteed to be deselected at that time."
     (if (not (null? thunks))
 	(begin
 	  ((car thunks))
-	  (loop))))  (vector-set! buffer buffer-index:initializations '())
+	  (loop (cdr thunks)))))
+  (vector-set! buffer buffer-index:initializations '())
   unspecific)
 
 ;;;; Local Bindings
-- 
2.25.1