--- ftp.tcl.orig	2007-05-07 12:35:03.882073100 -0400
+++ ftp.tcl	2007-05-07 12:35:02.819498300 -0400
@@ -100,8 +100,9 @@
     #              whether this procedure is called or not.
 
+    global errorInfo
     switch -exact -- $state {
         data    {log::log debug "$state | $msg"}
         control {log::log debug "$state | $msg"}
-        error   {log::log error "$state | E: $msg"}
+        error   {log::log error "$state | E: $msg:\n$errorInfo"}
         default {log::log debug "$state | $msg"}
     }
@@ -2020,5 +2021,4 @@
 	    }
 	}
-	catch {unset ftp(get:channel)}
         return 1
     } else {
