Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -r1.17 -r1.17.2.1
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	27 Oct 2003 11:11:39 -0000	1.17
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	20 Nov 2003 20:28:28 -0000	1.17.2.1
@@ -53,10 +53,12 @@
             set segment_name "$truncated_subsite_name Members"
             set segment_id [rel_segments_new $subsite_group_id membership_rel $segment_name]
 
-            # Create a constraint that says "to be a member of this subsite you must be a member
-            # of the parent subsite.
+            # Create a constraint that says "to be a member of this
+            # subsite you must be a member of the parent subsite".
+	    set subsite_id [site_node_closest_ancestor_package acs-subsite]
 
             db_1row parent_subsite_query {}
+
             set constraint_name "Members of [string range $subsite_name 0 30] must be members of [string range $supersite_name 0 30]"
             set user_id [ad_conn user_id]
             set creation_ip [ad_conn peeraddr]
Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/subsite-procs.xql,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.xql	17 May 2003 09:58:37 -0000	1.4
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.xql	20 Nov 2003 20:28:28 -0000	1.4.2.1
@@ -32,7 +32,7 @@
          where s1.node_id = :node_id
            and s2.node_id = s1.parent_id
            and p.package_id = s2.object_id
-	   and m.package_id = s2.object_id 
+	   and m.package_id = :subsite_id
 
       </querytext>
 </fullquery>