--- a/ObjMem.st	Tue Mar 19 12:24:26 1996 +0100
+++ b/ObjMem.st	Tue Mar 19 14:20:42 1996 +0100
@@ -167,9 +167,9 @@
 
 	BackgroundFinalizationProcess   created by startBackgroundFinalizationAt:
 
-        ImageName			name of the current image (or nil)
-
-        ImageSaveTime   <AbsoluteTime>  timestamp when this image was saved
+	ImageName                       name of the current image (or nil)
+
+	ImageSaveTime   <AbsoluteTime>  timestamp when this image was saved
 
 
     Warning:
@@ -1897,6 +1897,24 @@
     "
 !
 
+oldSpaceCompressLimit
+    "return the limit for oldSpace compression. If more memory than this
+     limit is in use, the system will not perform compresses on the oldspace,
+     but instead do a mark&sweep GC followed by an oldSpace increase if not enough
+     could be reclaimed. The default is currently some 8Mb, which is ok for workstations
+     with 16..32Mb of physical memory. If your system has much more physical RAM,
+     you may want to increase this limit."
+
+%{  /* NOCONTEXT */
+    extern unsigned __compressingGCLimit();
+
+    RETURN (_MKSMALLINT( __compressingGCLimit(-1) ));
+%}
+    "
+     ObjectMemory oldSpaceCompressLimit
+    "
+!
+
 oldSpaceCompressLimit:amount
     "set the limit for oldSpace compression. If more memory than this
      limit is in use, the system will not perform compresses on the oldspace,
@@ -3264,6 +3282,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.93 1996-03-08 20:46:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.94 1996-03-19 13:20:42 cg Exp $'
 ! !
 ObjectMemory initialize!