mescc: bump default maximum for M1-strings to 80.

* module/mes/M1.mes (object->M1): bump default maximum for M1-strings to 80.

diff --git a/module/mes/M1.mes b/module/mes/M1.mes
index 0740e2aa34398fa762e6a90f88cdc6c69b529e50..7a4251ca3ee45b4ed6ce2af6c70b905801275f3f 100644 (file)
--- a/module/mes/M1.mes
+++ b/module/mes/M1.mes
@@ -144,7 +144,7 @@
              (data (cdr o))
              (data (filter-map labelize data))
              (len (length data))
-             (string-max (or (and=> (getenv "M1_STRING_MAX") string->number) 0)))
+             (string-max (or (and=> (getenv "M1_STRING_MAX") string->number) 80)))
         (format #t "\n:~a\n" label)
         (cond ((and (< len string-max)
                     (char? (car data))