Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.90 -r1.90.2.1
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	17 Aug 2011 19:19:40 -0000	1.90
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	8 Sep 2013 08:20:53 -0000	1.90.2.1
@@ -992,7 +992,7 @@
 
     <pre>
     # Pull out the package_id of the subsite closest to our current node
-    set pkg_id [site_node_closest_ancestor_package "acs-subsite"]
+    set pkg_id [site_node::closest_ancestor_package -include_self -package_key "acs-subsite"]
     </pre>
 
     @author Michael Bryzek (mbryzek@arsdigita.com)