Index: openacs-4/packages/acs-kernel/sql/postgresql/rel-segments-body-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/rel-segments-body-create.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-kernel/sql/postgresql/rel-segments-body-create.sql	2 Jul 2002 21:16:06 -0000	1.7
+++ openacs-4/packages/acs-kernel/sql/postgresql/rel-segments-body-create.sql	8 Jul 2002 22:09:32 -0000	1.8
@@ -50,10 +50,14 @@
 declare
   new__segment_name      alias for $1;  
   new__group_id          alias for $2;  
-  new__rel_type          alias for $3; 
+  new__rel_type          alias for $3;
+  v_segment_id           rel_segments.segment_id%TYPE;
 begin
-	return rel_segment__new(null, ''rel_segment'', now(), null, null, null, null new__segment_name, new__group_id, new_rel_type, null);
 
+   v_segment_id := rel_segment__new(null, ''rel_segment'', now(), null, null, null, null, new__segment_name, new__group_id, new__rel_type, null);
+
+   return v_segment_id;
+
 end;' language 'plpgsql';
 
 
