Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.126.2.21 -r1.126.2.22
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	13 Nov 2019 17:04:40 -0000	1.126.2.21
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	16 Nov 2019 15:45:55 -0000	1.126.2.22
@@ -1546,7 +1546,7 @@
     if { [info exists $key] } { return [set $key] }
 
     if {[array size ::security::tcl_secret_tokens] == 0} {
-        populate_secret_tokens_thread_cache
+        sec_populate_secret_tokens_thread_cache
         if { [info exists $key] } { return [set $key] }
     }
 
@@ -1579,30 +1579,30 @@
     #set list_of_names [ns_cache names secret_tokens]
     set list_of_names [array names ::security::tcl_secret_tokens]
     if {[llength $list_of_names] == 0} {
-        populate_secret_tokens_thread_cache
+        sec_populate_secret_tokens_thread_cache
         set list_of_names [array names ::security::tcl_secret_tokens]
     }
 
     set random_seed [ns_rand [llength $list_of_names]]
     return [lindex $list_of_names $random_seed]
 }
 
-ad_proc -private populate_secret_tokens_thread_cache {} {
+ad_proc -private sec_populate_secret_tokens_thread_cache {} {
 
     Copy secret_tokens cache to per-thread variables
 
 } {
     set ids [ns_cache names secret_tokens]
     if {[llength $ids] == 0} {
-        populate_secret_tokens_cache
+        sec_populate_secret_tokens_cache
         set ids [ns_cache names secret_tokens]
     }
     foreach name $ids {
         set ::security::tcl_secret_tokens($name) [ns_cache get secret_tokens $name]
     }
 }
 
-ad_proc -private populate_secret_tokens_cache {} {
+ad_proc -private sec_populate_secret_tokens_cache {} {
 
     Randomly populates the secret_tokens cache.
 
@@ -1623,7 +1623,7 @@
     db_release_unused_handles
 }
 
-ad_proc -private populate_secret_tokens_db {} {
+ad_proc -private sec_populate_secret_tokens_db {} {
 
     Populates the secret_tokens table. Note that this will take a while
     to run.