Index: openacs-4/packages/acs-subsite/tcl/rel-types-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-types-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/tcl/rel-types-procs.tcl	10 Jan 2007 21:22:06 -0000	1.9
+++ openacs-4/packages/acs-subsite/tcl/rel-types-procs.tcl	4 Oct 2010 21:59:20 -0000	1.10
@@ -218,6 +218,7 @@
 	Add a permissible relationship for a given group type
     } {
 	if {[catch {
+	    set group_rel_type_id [db_nextval acs_object_id_seq]
 	    db_dml insert_rel_type {}
 	} errmsg]} {
 	}