minor fix: sometimes wrote 0-byte

diff --git a/lang/m2/libm2/Traps.mod b/lang/m2/libm2/Traps.mod
index 2d1de8f..35ea1ba 100644 (file)
--- 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;