download image from clipboard

download-image: func [] [
    url: to-url read clipboard:// 
    change-dir to-rebol-file ImageDirectory 
    dir: request-dir 
    file-name: ask "file name: " 
    file: to-rebol-file rejoin [dir file-name] 
    write/binary file read/binary url 
    change-dir to-rebol-file RebDir
]