#483 ftp::Quote should join arguments

[Anonymous]

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