--- a/private.rc	Sun Apr 02 13:48:09 1995 +0200
+++ b/private.rc	Fri May 19 06:03:53 1995 +0200
@@ -7,19 +7,40 @@
  * current directory - put all private preferences in here.
  *"
 
-Smalltalk systemPath addFirst:'../..'.
+"
+ set the package to some useful default
+"
+Project notNil ifTrue:[
+    Project setDefaultProject.
+    Project current packageName:#'private'.
+].
+!
+
+"
+ a kludge: some Xservers send #Delete for both the backspace
+ and the Delete key. In this case, we use the Backspace function
+ for both keys. If your Xserver does not do this (it should not)
+ remove /comment the following lines:
+"
+|map|
+
+map := Display keyboardMap.
+map bindValue:#BackSpace to:#Delete.
 
 "
  add my private directory to the searchPath ...
  This does not make sense in your environment.
  However, I leave the code here to show how its done.
 "
+Smalltalk systemPath addFirst:'../..'.
+
 OperatingSystem getLoginName = 'claus' ifTrue:[
     Smalltalk systemPath addFirst:'/phys/clam/claus/smalltalk/not_delivered'.
     Smalltalk systemPath addFirst:'/phys/clam/claus/smalltalk/private_classes'.
     Smalltalk systemPath addFirst:'/phys/clam/claus/work/fileIn/not_delivered'.
     Smalltalk systemPath addFirst:'/phys/clam/claus/work/libpro'.
 ].
+Smalltalk flushPathCaches.
 
 "
  color allocation strategy: