Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.62.2.2 -r1.62.2.3
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	2 Jan 2016 00:46:28 -0000	1.62.2.2
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	22 May 2016 19:18:22 -0000	1.62.2.3
@@ -104,7 +104,7 @@
     return [util_memoize [list ::person::person_p_not_cached -party_id $party_id]]
 }
 
-ad_proc -public person::person_p_not_cached {
+ad_proc -private person::person_p_not_cached {
     {-party_id:required}
 } {
     is this party a person? Cached
@@ -180,7 +180,7 @@
     acs_user::flush_cache -user_id $person_id
 }
 
-ad_proc -public person::name_not_cached {
+ad_proc -private person::name_not_cached {
     {-person_id ""}
     {-email ""}
 } {
@@ -351,7 +351,7 @@
     return $user_id
 }    
 
-ad_proc -public acs_user::get_by_username_not_cached {
+ad_proc -private acs_user::get_by_username_not_cached {
     {-authority_id:required}
     {-username:required}
 } {
@@ -694,7 +694,7 @@
     return [util_memoize [list acs_user::get_portrait_id_not_cached -user_id $user_id] 600]
 }
 
-ad_proc -public acs_user::get_portrait_id_not_cached {
+ad_proc -private acs_user::get_portrait_id_not_cached {
     {-user_id:required}
 } {
     Return the image_id of the portrait of a user, if it does not exist, return 0