Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -r1.19.2.3 -r1.19.2.4
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	7 Jun 2003 01:47:32 -0000	1.19.2.3
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	2 Jul 2003 19:26:08 -0000	1.19.2.4
@@ -76,7 +76,8 @@
     This is the URL of a user's private workspace on the system, usually
     /pvt/home.tcl
 } {
-    return [ad_parameter -package_id [ad_acs_kernel_id] HomeURL]
+    # LARS: We remove the trailing slash from the subsite url, because the HomeURL parameter is expected to start with a slash.
+    return "[string range [site_node_closest_ancestor_package_url] 0 end-1][ad_parameter -package_id [ad_acs_kernel_id] HomeURL]"
 }
 
 ad_proc ad_admin_home {} {
@@ -143,7 +144,8 @@
 } {
     @return the url for the community member page of a particular user
 } {
-    return "[ad_parameter -package_id [ad_acs_kernel_id] CommunityMemberURL]?[export_vars user_id]"
+    # LARS: We remove the trailing slash from the subsite url, because the HomeURL parameter is expected to start with a slash.
+    return "[string range [site_node_closest_ancestor_package_url] 0 end-1][ad_parameter -package_id [ad_acs_kernel_id] CommunityMemberURL]?[export_vars user_id]"
 }
 
 ad_proc -public acs_community_member_link {