Fix typo in previous change.

diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index 033e838c89af22bc566bde8c60b39c12d2468eee..9326fb816595b1dc9c7f9e59dad54640b039db09 100644 (file)
--- 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)
 \f
 ;;;; Local Bindings