about summary refs log tree commit diff stats
path: root/mu.arc
diff options
context:
space:
mode:
Diffstat (limited to 'mu.arc')
-rw-r--r--mu.arc2
1 files changed, 1 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc
index 239927d8..7a2c4d90 100644
--- a/mu.arc
+++ b/mu.arc
@@ -452,7 +452,7 @@
 (def new-array (type size)
 ;?   (prn "new array: @type @size")
   (ret result Memory-in-use-until
-    (++ Memory-in-use-until (* (sizeof types*.type!elem) size))))
+    (++ Memory-in-use-until (+ 1 (* (sizeof types*.type!elem) size)))))
 
 (def sizeof (type)
   (if (~or types*.type!record types*.type!array)