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.79 -r1.80
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	7 Mar 2005 21:02:15 -0000	1.79
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	9 Mar 2005 19:19:37 -0000	1.80
@@ -1239,7 +1239,7 @@
                         return $ad_conn(vhost_subsite_url)
                     }
                     vhost_package_url {
-                        set subsite_package_url [string range [ad_conn package_url] [llength [ad_conn subsite_url]] end]
+                        set subsite_package_url [string range [ad_conn package_url] [string length [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)
                     }