Index: modules/ftp/ftp.tcl
==================================================================
--- modules/ftp/ftp.tcl
+++ modules/ftp/ftp.tcl
@@ -2919,11 +2919,11 @@
 # Missing field => Not an active connection - Ignore
 # AC == 0       => OAC has run, IDC not     - Wait for IDC, then cleanup
 # AC == 1       => OAC has run, IDC as well - No waiting, just cleanup.
 
 proc ::ftp::WaitDataConn {s} {
-    variable verbose
+    variable VERBOSE
     upvar ::ftp::ftp$s ftp
 
     if {$VERBOSE} { DisplayMsg $s WDC|$s|Begin|@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ }
 
     # Passive connection, nothing to do

