--- a/ObjectMemory.st	Mon Feb 16 12:59:48 2009 +0100
+++ b/ObjectMemory.st	Mon Feb 16 13:05:24 2009 +0100
@@ -4147,6 +4147,16 @@
     ^ aCollection
 !
 
+collectedOldSpaceAddress
+%{
+    RETURN(__MKUINT(COLLECTEDOLD_ADDRESS));
+%}
+
+    "
+        self collectedOldSpaceAddress
+    "
+!
+
 fixSpaceSize
     "return the total size of the fix space."
 
@@ -4407,6 +4417,16 @@
     "
 !
 
+oldSpaceAddress
+%{
+    RETURN(__MKUINT(OLDSPACE_ADDRESS));
+%}
+
+    "
+        self oldSpaceAddress
+    "
+!
+
 oldSpaceAllocatedSinceLastGC
     "return the number of bytes allocated for old objects since the
      last oldspace garbage collect occured. This information is used
@@ -5220,7 +5240,7 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.239 2008-11-11 20:33:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.240 2009-02-16 12:05:24 stefan Exp $'
 ! !
 
 ObjectMemory initialize!