From 9d396f538909e9b5b40b9de68e8ea1af9b9216e8 Mon Sep 17 00:00:00 2001
From: Jason Wilson <edu/mit/csail/zurich/jawilson>
Date: Sat, 14 Aug 1993 02:47:21 +0000
Subject: [PATCH] Made groups start out writable? again.

---
 v7/src/edwin/struct.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/struct.scm b/v7/src/edwin/struct.scm
index df2b99170..b31e3dd49 100644
--- 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)
-- 
2.25.1