From ce179abeb7c08e7e1cc1b6d81f0952562cf508c7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Nov 1999 03:29:06 +0000
Subject: [PATCH] Eliminate reference to GROUP-INDEX:MODIFIED-TICK.

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

diff --git a/v7/src/edwin/txtprp.scm b/v7/src/edwin/txtprp.scm
index 4bf41aee8..7c86813fe 100644
--- a/v7/src/edwin/txtprp.scm
+++ b/v7/src/edwin/txtprp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: txtprp.scm,v 1.17 1999/01/02 06:11:34 cph Exp $
+;;; $Id: txtprp.scm,v 1.18 1999/11/01 03:29:06 cph Exp $
 ;;;
 ;;; Copyright (c) 1993-1999 Massachusetts Institute of Technology
 ;;;
@@ -189,9 +189,7 @@
 	  (set-group-start-changes-index! group start)
 	  (set-group-end-changes-index! group end))))
   (set-group-modified?! group #t)
-  (vector-set! group
-	       group-index:modified-tick
-	       (fix:+ (group-modified-tick group) 1)))
+  (set-group-modified-tick! group (fix:+ (group-modified-tick group) 1)))
 
 (define (validate-region-arguments group start end procedure)
   (validate-group group procedure)
-- 
2.25.1