Index: openacs-4/packages/dotlrn/sql/postgresql/admins-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/admins-init.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/sql/postgresql/admins-init.sql	8 Jul 2002 21:04:14 -0000	1.1
+++ openacs-4/packages/dotlrn/sql/postgresql/admins-init.sql	26 Jul 2002 14:53:51 -0000	1.2
@@ -27,6 +27,7 @@
 declare
     foo                         integer;
     gid				integer;
+    sid                         integer;
     dotlrn_users_group_id       integer;
 begin
 
@@ -58,18 +59,18 @@
         ''dotLRN Admins''
     );
 
-    insert
-    into dotlrn_user_types
-    (type, pretty_name, group_id)
-    values
-    (''admin'', ''Staff'', gid);
-
-    foo := rel_segment__new(
+    sid := rel_segment__new(
         ''dotLRN Admins'',
         gid,
         ''dotlrn_admin_profile_rel''
     );
 
+    insert
+    into dotlrn_user_types
+    (type, pretty_name, rel_type, group_id, segment_id)
+    values
+    (''admin'', ''Staff'', ''dotlrn_admin_profile_rel'', gid, sid);
+
     select group_id
     into dotlrn_users_group_id
     from groups