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.86 -r1.126.2.87 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 3 May 2023 12:35:51 -0000 1.126.2.86 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 3 May 2023 12:39:11 -0000 1.126.2.87 @@ -975,7 +975,7 @@ set max_age inf } } - + ad_set_signed_cookie \ -secure [expr {[parameter::get \ -boolean \ @@ -1262,14 +1262,14 @@ if {![ad_file owned $tmpfile]} { # # File does not belong to us: not safe - # + # return false } if {![ad_file readable $tmpfile]} { # # We cannot read the file: not safe - # + # return false } @@ -3240,7 +3240,7 @@ } namespace eval ::security::parameter { - + ad_proc -public signed {{-max_age ""} value} { Compute a compact single-token signed value based on the