area tag broken for full URLs

If you have a catalog with a VendUrl of www.example.com and you do this:
[area href=http://www.example.net/test form=foo=bar]

...you get this as a result:
http://www.example.com/test?foo=bar

(note how [area] swapped the domain in the URL for the VendUrl domain)

I note that the parsing of the page name in tag_area() parses out the
domain name but puts it in $r instead.  $r is not passed onto vendUrl()
at line 2767 of Interpolate.pm, but I believe it was intended to be the
third argument instead of the current undef.

Any comments on why it is undef and if changing this to $r will fix the
issue?


Peter