X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/92128dacf8d5db02379e8f872dc50d31c6aaa55f..d7a9b5aa35f81e680a54a2f7c2b7dab749812cef:/uip/comp.c

diff --git a/uip/comp.c b/uip/comp.c
index 2f7da416..13d73c1b 100644
--- a/uip/comp.c
+++ b/uip/comp.c
@@ -381,7 +381,10 @@ try_it_again:
 	dat[3] = outputlinelen;
 	dat[4] = 0;
 	fmt_scan(fmt, scanl, i, dat, NULL);
-	write(out, charstring_buffer (scanl), charstring_bytes (scanl));
+	if (write(out, charstring_buffer (scanl),
+		  charstring_bytes (scanl)) < 0) {
+	    advise (drft, "write");
+	}
 	charstring_free(scanl);
     } else {
 	cpydata (in, out, form, drft);