--- 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:[
"/