diff -uNr ftpd1.2.5-orig//ftpd.tcl ftpd1.2.5-bug3312880/ftpd.tcl
--- ftpd1.2.5-orig//ftpd.tcl	2011-06-06 22:59:33.000000000 +0000
+++ ftpd1.2.5-bug3312880/ftpd.tcl	2011-06-23 15:50:47.464732245 +0000
@@ -1301,7 +1301,7 @@
 
     set path [file join $data(cwd) [string trimleft $filename /]]
 
-    if {[file exists $path]} {
+    if {[::ftpd::Fs exists $path]} {
         if {[::ftpd::hasCallback authFileCmd]} {
             set cmd $::ftpd::cfg(authFileCmd)
             lappend cmd $data(user) $path write
