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.43.2.4 -r1.43.2.5
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	30 Sep 2004 19:43:55 -0000	1.43.2.4
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	6 Oct 2004 14:00:35 -0000	1.43.2.5
@@ -125,14 +125,21 @@
     return [ad_parameter -package_id [ad_acs_kernel_id] SystemURL]
 }
 
+ad_proc -public acs_community_member_page {
+} {
+    @return the url for the community member page
+} {
+    return "[subsite::get_element -element url -notrailing][ad_parameter \
+	    -package_id [ad_acs_kernel_id] CommunityMemberURL]"
+}
+
 ad_proc -public acs_community_member_url {
     {-user_id:required}
 } {
     @return the url for the community member page of a particular user
     @see acs_community_member_url
 } {
-    return "[subsite::get_element -element url -notrailing][ad_parameter \
-	    -package_id [ad_acs_kernel_id] CommunityMemberURL]?[export_vars user_id]"
+    return "[acs_community_member_page]?[export_vars user_id]"
 }
 
 ad_proc -public acs_community_member_link {