in ::ftp::Quote arguments are simply reached to the server,
but this is a tcl list. If list values contain spaces
or special
characters, tcl wraps list elements in braces and these get
handed over to the ftp-server.

I suggest the following mini-patch, which joins the
args by spaces:

--- ftp.tcl.orig        Thu Jul 15 10:42:53 2004
+++ ftp.tcl     Thu Jul 15 10:38:18 2004
@@ -2201,7 +2201,7 @@
         return 0
     }
 
-    set ftp(Cmd) $args
+    set ftp(Cmd) [join $args " "]
     set ftp(Quote) {}
 
     set ftp(State) quote