Index: openacs-4/packages/acs-subsite/www/pvt/home.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/home.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-subsite/www/pvt/home.tcl	30 Aug 2003 19:17:16 -0000	1.11
+++ openacs-4/packages/acs-subsite/www/pvt/home.tcl	31 Aug 2003 05:29:59 -0000	1.12
@@ -31,6 +31,8 @@
 
 set pvt_home_url [ad_pvt_home]
 
+set subsite_url [subsite::get_element -element url]
+
 set context [list $page_title]
 
 set ad_url [ad_url]