--- a/private.rc	Wed Feb 22 03:49:28 1995 +0100
+++ b/private.rc	Sat Mar 18 06:30:14 1995 +0100
@@ -10,6 +10,14 @@
 Smalltalk systemPath addFirst:'../..'.
 
 "
+ add my private directory to the searchPath ...
+"
+OperatingSystem getLoginName = 'claus' ifTrue:[
+    Smalltalk systemPath addFirst:'/phys/clam/claus/smalltalk/not_delivered'.
+    Smalltalk systemPath addFirst:'/phys/clam/claus/smalltalk/private_classes'.
+].
+
+"
  color allocation strategy:
 
  the default is to allocate from the colormap as required.
@@ -43,12 +51,14 @@
 OperatingSystem getLoginName = 'claus' ifTrue:[
     Compiler warnSTXSpecials:false.
     Compiler allowUnderscoreInIdentifier:true. 
+    Compiler warnUnderscoreInIdentifier:false. 
 ].
 
 "
  this is a temporary kludge: specify the flags to be used
  when compiling via stc. Primitive compilation (from within the browser)
  is still experimental. So you better not care (yet)
+ BTW: its only supported on UnixWare and SGI anyway.
 "
 OperatingSystem getOSType = 'irix' ifTrue:[
     Compiler stcCompilationFlags:'-I../../include +optinline -DGLX'.
@@ -58,6 +68,16 @@
 !
 
 "
+ experimental: try to always keep some bytes in the pocket
+"
+OperatingSystem getLoginName = 'claus' ifTrue:[
+    ObjectMemory freeSpaceGCLimit:1000000. 
+    ObjectMemory startBackgroundCollectorAt:5. 
+    ObjectMemory startBackgroundFinalizationAt:5. 
+]
+!
+
+"
  another experimental (and a secret)
  Playing around with GC parameters (aging params)
 "
@@ -65,7 +85,9 @@
 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 -16 -4 0 0 0 4 16 nil) copy.
+"/    a := #(nil nil nil nil -20 -8 -3 -1 0 4 16 nil) copy.
+    a := #(nil nil nil nil -20 -8 -3 -1 -1 1 16 nil) copy.
 ].
 ObjectMemory tenureParameters:a.
 !