From: ceriel <none@none>
Date: Wed, 23 Nov 1988 11:31:20 +0000 (+0000)
Subject: minor fix: sometimes wrote 0-byte
X-Git-Tag: release-5-5~2713
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=b86a455efaca23e283b6d709b414dd477f39b5f3;p=ack.git

minor fix: sometimes wrote 0-byte
---

diff --git a/lang/m2/libm2/Traps.mod b/lang/m2/libm2/Traps.mod
index 2d1de8faa..35ea1ba5b 100644
--- a/lang/m2/libm2/Traps.mod
+++ b/lang/m2/libm2/Traps.mod
@@ -43,7 +43,7 @@ IMPLEMENTATION MODULE Traps;
 		IF Unix.write(2, q, ADDRESS(p) - ADDRESS(q)) < 0 THEN END;
 	ELSE
 		l := Argv(0, buf);
-		IF Unix.write(2, ADR(buf), l) < 0 THEN END;
+		IF Unix.write(2, ADR(buf), l-1) < 0 THEN END;
 	END;
 	lino := EM.LINO();
 	i := 0;