--- a/private.rc	Mon Oct 10 04:36:13 1994 +0100
+++ b/private.rc	Mon Nov 21 18:37:56 1994 +0100
@@ -28,3 +28,14 @@
 !
 "/ MessageTracer trace:Display selectors:(XWorkstation selectorArray)
 
+
+"the following is experimental (and a secret)
+"
+|a|
+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.
+].
+ObjectMemory tenureParameters:a.
+!