--- a/private.rc	Sat Mar 18 06:30:14 1995 +0100
+++ b/private.rc	Sat Mar 18 16:29:30 1995 +0100
@@ -71,7 +71,8 @@
  experimental: try to always keep some bytes in the pocket
 "
 OperatingSystem getLoginName = 'claus' ifTrue:[
-    ObjectMemory freeSpaceGCLimit:1000000. 
+    ObjectMemory freeSpaceGCAmount:1000000. 
+    ObjectMemory freeSpaceGCLimit:250000. 
     ObjectMemory startBackgroundCollectorAt:5. 
     ObjectMemory startBackgroundFinalizationAt:5. 
 ]
@@ -85,8 +86,11 @@
 ObjectMemory newSpaceSize > (500*1024) ifTrue:[
     a := #(nil nil nil nil -16 -4 -2 -2 0 0 16 nil) copy.
 ] ifFalse:[
-"/    a := #(nil nil nil nil -16 -4 0 0 0 4 16 nil) copy.
-"/    a := #(nil nil nil nil -20 -8 -3 -1 0 4 16 nil) copy.
+"/         min max cpy /32 /16 /8 /4 /2 /4 /8 /16 /32 "
+    "slow tenure"
+"/  a := #(nil nil nil -100 -8 -4 -1  1 2  4  8   16 nil) copy.
+"/  a := #(nil nil nil nil -16 -4  0  0  0 4 16 nil) copy.
+    "fast tenure"
     a := #(nil nil nil nil -20 -8 -3 -1 -1 1 16 nil) copy.
 ].
 ObjectMemory tenureParameters:a.