[REBOL] Example in how-to page doesn't seem to work ?

[youpi . technologies]

In example
http://www.rebol.com/howto.html#web-read.html

Split Tags from Text does work 

But the second part "Show Links For a Page"
doesn't not seem to work :

Show Links For a Page
To print the hyper-links for the page above:

    foreach tag tags [
        if parse tag ["A" thru "HREF=" 
            [{"} copy link to {"} | copy link to ">"]
            to end
        ][print link]
    ]

Does someone agree or disagree with that ?

Thanks.