830 

   831 "/

   832 "/ save an initial image; this will speedup the next startup

   833 "/ (since all autoload-stuff will already be initialized)

   834 "/

   835 ((Smalltalk commandLineArguments includes:'--quick')

   836  or:[(Smalltalk commandLineArguments includes:'--faststart')

   837  or:[(Smalltalk commandLineArguments includes:'--fastStart')

   838  or:[(Smalltalk isPlugin)

   839 ]]]) ifFalse:[

   840     ('st.img' asFilename exists not and:[Filename currentDirectory isWritable]) ifTrue:[

   841 	|doneWithStartupStuff|

   842 

   843 	doneWithStartupStuff := Semaphore new.

   844 

   845 	Smalltalk addStartBlock:[

   846 	    [

   847 		doneWithStartupStuff wait.

   848 		   'smalltalk.rc [info]: saving initial image for faster future startup...' infoPrintCR.

   849 		   ObjectMemory primSnapShotOn:'st.img'

   850 	    ] forkAt:1.

   851 	    [

   852 		Delay waitForSeconds:10.

   853 		doneWithStartupStuff signal

   854 	    ] forkAt:1.

   855 	].

   856     ].

   857 ].