Index: openacs-4/packages/acs-subsite/www/admin/users/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/users/new.tcl,v
diff -u -N -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/acs-subsite/www/admin/users/new.tcl	20 Jan 2003 13:48:05 -0000	1.4.2.1
+++ openacs-4/packages/acs-subsite/www/admin/users/new.tcl	9 Mar 2003 22:56:36 -0000	1.4.2.2
@@ -182,7 +182,13 @@
 		    $member_state \
 		    $user_id]
 
-	    relation_add -form_id add_user -variable_prefix rel -member_state $rel_member_state $add_with_rel_type $add_to_group_id $user_id
+            # Hack for adding users to the main subsite, whose application group is the registered users group.
+
+            if { $add_to_group_id != [acs_lookup_magic_object "registered_users"] ||
+                 ![string equal $add_with_rel_type "membership_rel"] } {
+	        relation_add -form_id add_user -variable_prefix rel -member_state $rel_member_state $add_with_rel_type $add_to_group_id $user_id
+            }
+
 	} on_error {
 	    	ad_return_error "User Creation Failed" "We were unable to create the user record in the database."
 	}