From b86a455efaca23e283b6d709b414dd477f39b5f3 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 23 Nov 1988 11:31:20 +0000
Subject: [PATCH] minor fix: sometimes wrote 0-byte

---
 lang/m2/libm2/Traps.mod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.34.1