Remove tcp port from Location header in redirect

when HTTP_RESPONSE {
    if { [HTTP::is_redirect] } { 
        regsub -all ":52600" [HTTP::header Location] "" newlocation
        HTTP::header replace Location $newlocation
    }
}