HTTP Set-Cookie broken due to multiple "; Secure" inserted

I posted here to use the text format

when HTTP_RESPONSE {
 foreach cookie [HTTP::cookie names]
 {
   set value [HTTP::cookie value $cookie];
   if { "" != $value }
   {
     set testvalue [string tolower $value]
     set valuelen [string length $value]
     log local0. "Cookie found: $cookie = $value";
     switch -glob -- "$testvalue" {
       "*;secure*" -
       "*; secure*" { }
       default { set value "$value; Secure"; }
     }
     if { [string length $value] > $valuelen} {
       log local0. "Replacing cookie $cookie with $value"
       HTTP::cookie value $cookie "${value}"
     }
   }
 }
}