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.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	7 Dec 2001 21:59:51 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	16 Jan 2002 20:07:23 -0000	1.7
@@ -79,7 +79,7 @@
 
 proc ad_site_home_link {} {
     if { [ad_get_user_id] != 0 } {
-	return "<a href=\"[ad_pvt_home_link]\">[ad_system_name]</a>"
+	return "<a href=\"[ad_pvt_home]\">[ad_system_name]</a>"
     } else {
 	# we don't know who this person is
 	return "<a href=\"/\">[ad_system_name]</a>"