#10 Error in Tcllib1.11.1/ftpd

[Martin]

When invoking ftp::Rename on the client side, ftpd throws the application error:
can't read "data(cwd)": no such variable
while executing
"file join $data(cwd) [string trimleft $filename /]"
(procedure "::ftpd::command::RNTO" line 8)
invoked from within
"::ftpd::command::$cmd $sock $argument"
(procedure "::ftpd::Read" line 33)
invoked from within
"::ftpd::Read sock400"

==> Inserting the line "upvar #0 ::ftpd::$sock data" following the procedure declaration "proc ::ftpd::command::RNTO {sock filename} {" in file ftpd.tcl, line 1324
fixes the application error. However, the return value to the client is always 0, regardless if rename was successful or not. I did not see an easy fix for that.