--- ftp.tcl	2007-04-29 14:08:19.468750000 +0200
+++ ftp2.tcl	2007-04-29 14:09:48.328125000 +0200
@@ -121,7 +121,7 @@
     upvar ::ftp::ftp$s ftp
 
     after cancel $ftp(Wait)
-    set ftp(state.control) 1
+    set ftp(state.control) 0
 
     DisplayMsg "" "Timeout of control connection after $ftp(Timeout) sec.!" error
     Command $ftp(Command) timeout
