--- generic/tclIO.c.old	Sun Jan 20 23:47:01 2002
+++ generic/tclIO.c	Sun Jan 20 23:13:21 2002
@@ -2746,6 +2746,7 @@
 	    Tcl_UtfToExternal(NULL, encoding, stage, stageLen, flags,
 		    &statePtr->outputEncodingState, dst,
 		    dstLen + BUFFER_PADDING, &stageRead, &dstWrote, NULL);
+	    flags &= ~TCL_ENCODING_START;
 	    if (stageRead + dstWrote == 0) {
 		/*
 		 * We have an incomplete UTF-8 character at the end of the
