summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclZlib.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c
index 16bed47..537fa68 100644
--- a/generic/tclZlib.c
+++ b/generic/tclZlib.c
@@ -1091,7 +1091,7 @@ Tcl_ZlibStreamPut(
e = deflate(&zshPtr->stream, flush);
}
- if (e != Z_OK) {
+ if (e != Z_OK && !(flush==Z_FINISH && e==Z_STREAM_END)) {
if (zshPtr->interp) {
ConvertError(zshPtr->interp, e);
}