--- a/smalltalk.rc	Wed Nov 10 13:06:14 2004 +0100
+++ b/smalltalk.rc	Tue Nov 16 20:46:25 2004 +0100
@@ -497,8 +497,17 @@
 "/
 "/ read private (per user) stuff
 "/
-'smalltalk.rc [info]: reading ''private.rc'' ...' infoPrintCR.
-Smalltalk fileIn:'private.rc'.
+(Smalltalk commandLine includes:'-F') ifTrue:[
+    |idx file|
+
+    idx := Smalltalk commandLine indexOf:'-F'.
+    file := Smalltalk commandLine at:idx + 1.
+    ('smalltalk.rc [info]: reading ''' , file , ''' ...') infoPrintCR.
+    Smalltalk fileIn:file.
+] ifFalse:[
+    'smalltalk.rc [info]: reading ''private.rc'' ...' infoPrintCR.
+    Smalltalk fileIn:'private.rc'.
+].
 
 Screen notNil ifTrue:[
     "/