Index: openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl	10 Jan 2007 21:22:06 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl	4 Oct 2010 21:59:20 -0000	1.3
@@ -31,11 +31,13 @@
 }
 
 
-if { [catch {db_dml insert_rel_type {
+if { [catch {
+    set group_rel_type_id [db_nextval acs_object_id_seq]
+    db_dml insert_rel_type {
     insert into group_type_rels
     (group_rel_type_id, group_type, rel_type)
     values
-    (acs_object_id_seq.nextval, :group_type, :rel_type)
+    (:group_rel_type_id, :group_type, :rel_type)
 }   } err_msg] } {
     # Does this pair already exists?
     if { ![db_string exists_p {select count(*) from group_type_rels where group_type = :group_type and rel_type = :rel_type}] } {