From 3dce0b31fc75ae153d7e698c1adde5de6fd7dec3 Mon Sep 17 00:00:00 2001
From: apnadkarni <apnmbx-wits@yahoo.com>
Date: Mon, 25 Sep 2023 19:45:15 +0000
Subject: Start on [d5d03207ca]

---
 generic/tclZipfs.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c
index 510fa33..ceccd9e 100644
--- a/generic/tclZipfs.c
+++ b/generic/tclZipfs.c
@@ -4342,14 +4342,14 @@ ZipChannelWrite(
 	*errloc = EINVAL;
 	return -1;
     }
-    nextpos = info->numRead + toWrite;
-    if (nextpos > info->maxWrite) {
+    if (toWrite > info->maxWrite - info->numRead) {
 	toWrite = info->maxWrite - info->numRead;
-	nextpos = info->maxWrite;
     }
     if (toWrite == 0) {
-	return 0;
+	*errloc = EFBIG;
+	return -1;
     }
+    nextpos = info->numRead + toWrite;
     memcpy(info->ubuf + info->numRead, buf, toWrite);
     info->numRead = nextpos;
     if (info->numRead > info->numBytes) {
-- 
cgit v0.12