[REBOL] ftp problem

[norsepower]

For some reason I am not able to upload a file to my web server.
Can you tell me what I am doing wrong?

*** HERE IS THE SCRIPT ***

(note: my real script has the actual username and password in it)

        site: ftp://user:[EMAIL PROTECTED]/
        
        local: %/boot/home/webdata/images/      

        foreach file read/binary %/boot/home/webdata/images/ [
            print ["Uploading:" site/:file]
            write/binary site/:file read/binary local/:file
            ]


*** HERE IS WHAT I SEE IN MY TERMINAL WINDOW ***

(note: the real terminal response has the actual username and password 
in it)

Uploading: ftp://user:[EMAIL PROTECTED]/adpromo1.jpg
connecting to: news.com
** Script Error: pick expected series argument of type: series money 
date time object port tuple any-function.
** Where: pick server-said 4