Index: openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl,v
diff -u -r1.12.2.4 -r1.12.2.5
--- openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	1 Sep 2020 17:38:56 -0000	1.12.2.4
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	9 Aug 2024 17:32:33 -0000	1.12.2.5
@@ -161,6 +161,7 @@
                             constraint $constraint(pk) primary key
                             constraint $constraint(fk)
                             references $references_table ($references_column)
+                            on delete cascade
                  )}]} errmsg] } {
 
             # Roll back our work so far