room fix with large arena

diff --git a/native/memory.c b/native/memory.c
index d57507a9dc4e6761501d00edceced3a9c0afc7e7..94ba7dd832b3dbb2036f4c2b0fb784953e547d91 100644 (file)
--- a/native/memory.c
+++ b/native/memory.c
@@ -81,6 +81,6 @@ bool in_zone(ZONE* z, CELL pointer)
 void primitive_room(void)
 {
        /* push: free total */
-       dpush(tag_fixnum(active->limit - active->here));
-       dpush(tag_fixnum(active->limit - active->base));
+       dpush(tag_fixnum_or_bignum(active->limit - active->here));
+       dpush(tag_fixnum_or_bignum(active->limit - active->base));
 }