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.71 -r1.72
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	18 Feb 2005 19:08:53 -0000	1.71
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	24 Feb 2005 15:22:52 -0000	1.72
@@ -1243,7 +1243,8 @@
                         return $ad_conn(vhost_subsite_url)
                     }
                     vhost_package_url {
-                        set ad_conn(vhost_package_url) "[subsite::get_url][ad_conn node_name]"
+                        set subsite_package_url [string range [ad_conn package_url] [llength [ad_conn subsite_url]] end]
+                        set ad_conn(vhost_package_url) "[ad_conn vhost_subsite_url]$subsite_package_url"
                         return $ad_conn(vhost_package_url)
                     }
                     default {