Made groups start out writable? again.

diff --git a/v7/src/edwin/struct.scm b/v7/src/edwin/struct.scm
index df2b99170fa17d7e30682781fcde9806ba51cff7..b31e3dd49d950c289b0f054230ac0320bb9dcf6c 100644 (file)
--- a/v7/src/edwin/struct.scm
+++ b/v7/src/edwin/struct.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: struct.scm,v 1.88 1993/08/13 23:40:14 cph Exp $
+;;;    $Id: struct.scm,v 1.89 1993/08/14 02:47:21 jawilson Exp $
 ;;;
 ;;;    Copyright (c) 1985, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -163,7 +163,7 @@
     (let ((end (make-permanent-mark group 0 true)))
       (vector-set! group group-index:end-mark end)
       (vector-set! group group-index:display-end end))
-    (vector-set! group group-index:writable? false)
+    (vector-set! group group-index:writable? #t)
     (vector-set! group group-index:start-changes-index false)
     (vector-set! group group-index:end-changes-index false)
     (vector-set! group group-index:modified-tick 0)