[plt-scheme] ftp

Can anyone point out what I'm doing wrong with this code?  I'm having trouble figuring out what the problem is.  Thanks for your help!

Sincerely,

Dan


#lang scheme
(require net/ftp)
(define myftp (ftp-establish-connection "10.1.4.157" 21 "anonymous" ""))	 	 	 	 
(ftp-cd myftp "pub") 
(ftp-directory-list myftp)

(ftp-download-file myftp "/home/dvisher" "mypic.png" )
(ftp-close-connection myftp) 

;procedure open-output-file: expects 1 argument plus optional arguments with keywords #:exists and #:mode, given 2: "/home/dvisher/ftptmp1274590128-1015158141" replace