1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index c6402f1..e00b99b 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -4409,11 +4409,8 @@ Write(
 	     * We're reading from invalid/incomplete UTF-8.
 	     */
 
-	    if (total == 0) {
-		Tcl_SetErrno(EILSEQ);
-		return -1;
-	    }
-	    break;
+	    encodingError = 1;
+	    result = TCL_OK;
 	}
 
 	bufPtr->nextAdded += dstWrote;