Bug or code error?

I'm trying to do a rule based on the contents of the Referer header, and it looks like the URI::path function is not working correctly.

 

 

For instance:

 

Referer: http://www.foo.com/search

 

 

[URI::path [HTTP::header "Referer"] ]

 

should evaluate as "/search", but instead evaluates as "/".

 

 

To get the path, I'm using the following (messy) code:

 

 

set referer_host [URI::host [HTTP::header "Referer"] ]

 

 

set referer_path [ string range [HTTP::header "Referer"] [expr [string first ${referer_host} [HTTP::header "Referer"] ] + [string length ${referer_host} ] ] end ]

 

 

 

Any better options?