Index: openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-2.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-2.tcl	10 Jan 2007 21:22:07 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-2.tcl	4 Oct 2010 21:59:20 -0000	1.4
@@ -35,11 +35,13 @@
     }
 }
 
-if { [catch {db_dml insert_rel_type {
+if { [catch {
+    set group_rel_id [db_nextval acs_object_id_seq]
+    db_dml insert_rel_type {
     insert into group_rels
     (group_rel_id, group_id, rel_type)
     values
-    (acs_object_id_seq.nextval, :group_id, :rel_type)
+    (:group_rel_id, :group_id, :rel_type)
 }   } err_msg] } {
     # Does this pair already exists?
     if { ![db_string exists_p {