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]