Index: openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl	11 Dec 2003 21:39:55 -0000	1.8
+++ openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl	8 Feb 2004 17:36:16 -0000	1.9
@@ -69,7 +69,12 @@
         group::update -group_id $member_group_id -array group
 
         # Add current user as admin
-	set rel_id [relation_add -member_state "approved" "admin_rel" $member_group_id [ad_conn user_id]]
+	group::add_member \
+            -no_perm_check \
+            -member_state "approved" \
+            -rel_type "admin_rel" \
+            -group_id $member_group_id \
+            -user_id [ad_conn user_id]
         
         # Set inheritance (called 'visibility' in form)
         if { ![string equal $visibility "any"] } {