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.51 -r1.126.2.52
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	22 Mar 2021 11:00:46 -0000	1.126.2.51
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	30 Mar 2021 14:43:45 -0000	1.126.2.52
@@ -1619,7 +1619,7 @@
     return $token
 }
 
-ad_proc -private sec_get_random_cached_token_id {} {
+ad_proc -public sec_get_random_cached_token_id {} {
 
     Randomly returns a token_id from the token cache