Index: modules/ftp/ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftp/ChangeLog,v
retrieving revision 1.15
diff -u -r1.15 ChangeLog
--- modules/ftp/ChangeLog	2001/10/17 17:27:25	1.15
+++ modules/ftp/ChangeLog	2001/10/21 01:37:54
@@ -1,3 +1,9 @@
+2001-10-20  Andreas Kupries  <andreask@pliers.activestate.com>
+
+	* ftp.tcl: Fixed bug #466746. Reporter of bug unknown, provided
+	  fix too. Problem was incomplete handling of [gets] return
+	  values. Value -1 signaling an incomplete line was not handled.
+
 2001-10-16  Andreas Kupries  <andreask@pliers.activestate.com>
 
 	* ftp.n:
Index: modules/ftp/ftp.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftp/ftp.tcl,v
retrieving revision 1.15
diff -u -r1.15 ftp.tcl
--- modules/ftp/ftp.tcl	2001/10/17 17:27:26	1.15
+++ modules/ftp/ftp.tcl	2001/10/21 01:37:55
@@ -271,8 +271,10 @@
             catch {unset ftp(State)}
             catch {close $ftp(CtrlSock); unset ftp(CtrlSock)}
             return
-        }
-	
+        } else {
+	    # Fix SF bug #466746: Incomplete line, do nothing.
+	    return	   
+	}
     } 
 	
     if { $DEBUG } {
