Index: openacs-4/contrib/packages/cop-base/tcl/cop-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-base/tcl/cop-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/cop-base/tcl/cop-procs.tcl	23 Jun 2004 14:22:50 -0000	1.7
+++ openacs-4/contrib/packages/cop-base/tcl/cop-procs.tcl	25 Mar 2005 08:40:29 -0000	1.8
@@ -24,7 +24,7 @@
     @creation-date 2003-10-30
 } {
     if {[empty_string_p $node_id]} { 
-        set node_id [site_node::closest_ancestor_package -package_key acs-subsite -node_id [ad_conn node_id] -include_self -element node_id]
+        set node_id [site_node::closest_ancestor_package -package_key [subsite::package_keys] -node_id [ad_conn node_id] -include_self -element node_id]
     }
 
     return [lindex [site_node::get_children -node_id $node_id -package_key cop-ui -all] 0]