like this?

orginal:

   foreach feed $::rss::feeds {
     # FEEDS: Import feed details.
     set order [set ::rss::${feed}Ord] ; set regex [set ::rss::${feed}Reg]
     if {$feed eq "ggl"} { set url [rotate ::rss::gglUrl]
     } else {set url [set ::rss::${feed}Url]}

     # UPDATE: Download news from feed.
     if {[catch {::http::geturl $url -timeout 20000} tok]} {putlog "$feed\: timeout problems: $tok"; error $tok}
     if {[::http::status $tok] ne "ok"} {
       error "[s2u $feed] feed (TCP error: [::http::status $tok][::http::cleanup $tok])"
     }
     if {[::http::ncode $tok] != 200} {
       error "[s2u $feed] feed (HTTP error: [::http::code $tok][::http::cleanup $tok])"
     }
     set data [::http::data $tok] ; ::http::cleanup $tok ; unset tok ; set drpCnt 0


My edit:

   foreach feed $::rss::feeds {
     # FEEDS: Import feed details.
     set order [set ::rss::${feed}Ord] ; set regex [set ::rss::${feed}Reg]
     if {$feed eq "ggl"} { set url [rotate ::rss::gglUrl]
     } else {set url [set ::rss::${feed}Url]}

     # UPDATE: Download news from feed.
     if {[catch {::http::geturl $url -timeout 20000} tok]} {

#---------------
       if {$feed eq "fox"} {
         if {[catch {::http::geturl $url -timeout 20000} tok]} {putlog "$feed\: timeout problems: $tok"; error $tok}
       } else {putlog "$feed\: timeout problems: $tok"; error $tok}

     }
#-------------------

     if {[::http::status $tok] ne "ok"} {
       error "[s2u $feed] feed (TCP error: [::http::status $tok][::http::cleanup $tok])"
     }
     if {[::http::ncode $tok] != 200} {
       error "[s2u $feed] feed (HTTP error: [::http::code $tok][::http::cleanup $tok])"
     }
     set data [::http::data $tok] ; ::http::cleanup $tok ; unset tok ; set drpCnt 0