From 0b65b194c9b1a5322518383a8e618fd137a29e65 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 24 Oct 2009 23:49:33 -0500
Subject: [PATCH] vm: fix 'data-room' primitive to report correct sizes for
 tenured space

---
 vm/data_heap.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vm/data_heap.cpp b/vm/data_heap.cpp
index b210adb8e1..57f6608e6b 100755
--- a/vm/data_heap.cpp
+++ b/vm/data_heap.cpp
@@ -219,7 +219,7 @@ void factor_vm::primitive_data_room()
 	cell used, total_free, max_free;
 	data->tenured->usage(&used,&total_free,&max_free);
 	a.add(tag_fixnum(total_free >> 10));
-	a.add(tag_fixnum(used >> 10));
+	a.add(tag_fixnum(data->tenured->size >> 10));
 
 	a.trim();
 	dpush(a.elements.value());