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.153.2.48 -r1.153.2.49
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	25 Jan 2022 23:10:37 -0000	1.153.2.48
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	3 Feb 2022 13:58:25 -0000	1.153.2.49
@@ -1656,6 +1656,11 @@
                             set ad_conn(vhost_package_url) "[ad_conn vhost_subsite_url]$subsite_package_url"
                             return $ad_conn(vhost_package_url)
                         }
+                        vhost_url {
+                            set vhost_url [string range [ad_conn url] [string length [ad_conn subsite_url]] end]
+                            set ad_conn(vhost_url) "[ad_conn vhost_subsite_url]$vhost_url"
+                            return $ad_conn(vhost_url)
+                        }
                         recursion_count {
                             # sometimes recusion_count will be uninitialized and
                             # something will call ad_conn recursion_count - return 0