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.98 -r1.126.2.99
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	15 Feb 2024 16:47:57 -0000	1.126.2.98
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	5 Apr 2024 08:28:21 -0000	1.126.2.99
@@ -3228,7 +3228,7 @@
                 #
                 set session_id [ad_conn peeraddr]
             }
-            set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""]
+            set secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""]
 
             if {[namespace which ::crypto::hmac] ne ""} {
                 set token  [::crypto::hmac string $secret $session_id-[clock clicks -microseconds]]
@@ -3403,12 +3403,12 @@
     ad_proc -public signed {{-max_age ""} value} {
 
         Compute a compact single-token signed value based on the
-        parametersecret.
+        parameterSecret.
 
         @see ::security::parameter::validated
     } {
         set token_id [sec_get_random_cached_token_id]
-        set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""]
+        set secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""]
         set signature [ad_sign -max_age $max_age -secret $secret -token_id $token_id $value]
         return [ns_base64urlencode [list $value $signature]]
     }
@@ -3425,7 +3425,7 @@
         set pair [ns_base64urldecode $input]
         if {[string is list -strict $pair] && [llength $pair] == 2} {
             lassign $pair value signature
-            set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""]
+            set secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""]
             set success [ad_verify_signature -secret $secret $value $signature]
         }
         if {$success} {
@@ -3579,7 +3579,7 @@
         if {[info exists $globalTokenName] && [set $globalTokenName] ne ""} {
             set token [set $globalTokenName]
         } else {
-            set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""]
+            set secret [ns_config "ns/server/[ns_info server]/acs" parameterSecret ""]
             if {[namespace which ::crypto::hmac] ne ""} {
                 set token [::crypto::hmac string $secret [session_id]]
             } else {