--- a/Smalltalk.st	Fri Mar 03 13:03:15 2006 +0100
+++ b/Smalltalk.st	Fri Mar 03 13:22:22 2006 +0100
@@ -3076,6 +3076,10 @@
             "/ ('Screen is %1' bindWith:Screen) printCR.
 
             didReadRCFile ifFalse:[
+                "/
+                "/ No RC file found;
+                "/ Setup more default stuff
+                "/
                 StandAlone ifFalse:[
                     "/ its a smalltalk - proceed in interpreter.
                     'Smalltalk [warning]: no startup rc-file found. Going into line-by-line interpreter.' infoPrintCR.
@@ -3097,11 +3101,24 @@
 
                         Display notNil ifTrue:[
                             (self secureFileIn:'display.rc') ifFalse:[
-                                'Smalltalk [warning]: no display.rc found; screen setting might be wrong.' infoPrintCR.
+                                'Smalltalk [warning]: no display.rc found; screen setting might be wrong.' errorPrintCR.
+                                (self secureFileIn:'keyboard.rc') ifFalse:[
+                                    'Smalltalk [warning]: no keyboard.rc found; shortkey setting might be wrong.' errorPrintCR.
+                                ]
                             ]
                         ].
                     ]
-                ]
+                ].
+
+                "/ setup more defaults...
+                ObjectMemory startBackgroundCollectorAt:5.
+                ObjectMemory startBackgroundFinalizationAt:5.
+                self addStartBlock:[
+                    Processor startTimeSlicing.
+                    Processor supportDynamicPriorities:true.
+                    ObjectMemory backgroundCollectProcess priorityRange:(4 to:9).
+                    ObjectMemory backgroundFinalizationProcess priorityRange:(4 to:9).
+                ].
             ].
         ].
     ].
@@ -6665,5 +6682,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.716 2006-03-02 22:50:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.717 2006-03-03 12:22:22 cg Exp $'
 ! !