Index: openacs-4/packages/acs-tcl/tcl/security-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-init.tcl,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/acs-tcl/tcl/security-init.tcl	7 Aug 2017 23:47:59 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/security-init.tcl	16 Nov 2019 15:45:55 -0000	1.6.2.1
@@ -17,13 +17,13 @@
 set secret_tokens_exists [db_string secret_tokens_exists {select decode(count(*),0,0,1) from secret_tokens}]
 
 if { $secret_tokens_exists == 0 } {
-    populate_secret_tokens_db
+    sec_populate_secret_tokens_db
 }
 
 ns_log Notice "security-init.tcl: Creating secret_tokens ns_cache..."
 ns_cache create secret_tokens -size 65536
 ns_log Notice "security-init.tcl: Populating secret_tokens ns_cache..."
-populate_secret_tokens_cache
+sec_populate_secret_tokens_cache
 
 # These procedures are dynamically defined so that parameter::get
 # does not need to be called directly in the RP.