Index: tclIO.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIO.c,v
retrieving revision 1.147
diff -u -r1.147 tclIO.c
--- tclIO.c	6 Nov 2008 21:47:36 -0000	1.147
+++ tclIO.c	17 Nov 2008 00:43:56 -0000
@@ -364,8 +364,8 @@
 		 */
 
 		chanPtr->instanceData = NULL;
-		SetFlag(statePtr, CHANNEL_DEAD);
 	    }
+	    SetFlag(statePtr, CHANNEL_DEAD);
 	}
     }
 
