Index: generic/tclIOCmd.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIOCmd.c,v
retrieving revision 1.13
diff -u -r1.13 tclIOCmd.c
--- generic/tclIOCmd.c	25 Jan 2002 20:40:55 -0000	1.13
+++ generic/tclIOCmd.c	14 Feb 2002 19:10:05 -0000
@@ -250,9 +250,7 @@
     lineLen = Tcl_GetsObj(chan, linePtr);
     if (lineLen < 0) {
         if (!Tcl_Eof(chan) && !Tcl_InputBlocked(chan)) {
-	    if (objc == 3) {
-		Tcl_DecrRefCount(linePtr);
-	    }
+	    Tcl_DecrRefCount(linePtr);
 	    Tcl_ResetResult(interp);
 	    Tcl_AppendResult(interp, "error reading \"", name, "\": ",
 		    Tcl_PosixError(interp), (char *) NULL);
