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.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	20 Nov 2001 17:46:28 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	7 Dec 2001 21:59:51 -0000	1.6
@@ -58,7 +58,7 @@
 # /pvt/home.tcl
 
 proc ad_pvt_home {} {
-    return "/pvt/home"
+    return [ad_parameter -package_id [ad_acs_kernel_id] HomeURL]
 }
 
 proc ad_admin_home {} {
@@ -70,16 +70,16 @@
 }
 
 proc ad_pvt_home_name {} {
-    return "workspace"
+    return [ad_parameter -package_id [ad_acs_kernel_id] HomeName]
 }
 
 proc ad_pvt_home_link {} {
-    return "<a href=\"/pvt/home\">your workspace</a>"
+    return "<a href=\"[ad_pvt_home]\">[ad_pvt_home_name]</a>"
 }
 
 proc ad_site_home_link {} {
     if { [ad_get_user_id] != 0 } {
-	return "<a href=\"/pvt/home\">[ad_system_name]</a>"
+	return "<a href=\"[ad_pvt_home_link]\">[ad_system_name]</a>"
     } else {
 	# we don't know who this person is
 	return "<a href=\"/\">[ad_system_name]</a>"