diff options
| -rw-r--r-- | byterun/str.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/byterun/str.c b/byterun/str.c index 59d314043..d634d1fa7 100644 --- a/byterun/str.c +++ b/byterun/str.c @@ -41,7 +41,7 @@ value create_string(len) /* ML */ value len; { mlsize_t size = Long_val(len); - if (size > Max_wosize * sizeof(value) - 2) invalid_argument("String.create"); + if (size > Bsize_wsize (Max_wosize) - 1) invalid_argument("String.create"); return alloc_string(size); } |