Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.75 -r1.76
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	1 Mar 2005 09:17:41 -0000	1.75
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	1 Mar 2005 09:56:58 -0000	1.76
@@ -1219,7 +1219,7 @@
                     subsite_node_id {
                         set ad_conn(subsite_node_id) [site_node::closest_ancestor_package \
                                                      -node_id [ad_conn node_id] \
-                                                     -package_key "acs-subsite" \
+                                                     -package_key [subsite::package_keys] \
                                                      -include_self \
                                                      -element "node_id"]
                         return $ad_conn(subsite_node_id)
@@ -1232,7 +1232,7 @@
                     subsite_url {
                         set ad_conn(subsite_url) [site_node::get_url \
                                                      -node_id [ad_conn subsite_node_id]]
-                        return $ad_conn(node_id)
+                        return $ad_conn(subsite_url)
                     }
                     vhost_subsite_url {
                         set ad_conn(vhost_subsite_url) [subsite::get_url]