--- a/smalltalk.rc	Mon Jun 16 20:57:38 1997 +0200
+++ b/smalltalk.rc	Mon Jun 16 20:58:44 1997 +0200
@@ -289,10 +289,24 @@
 "/ (since all autoload-stuff will already be initialized)
 "/
 
-"/'st.img' asFilename exists ifFalse:[
-"/    'smalltalk.rc [info]: saving initial image for faster future startup ...' infoPrintCR.
-"/    Smalltalk addStartBlock:[
-"/        ObjectMemory primSnapShotOn:'st.img'
-"/    ]
-"/].
+"/ 'st.img' asFilename exists ifFalse:[
+"/     |doneWithStartupStuff|
+"/ 
+"/     doneWithStartupStuff := Semaphore new.
+"/ 
+"/     Smalltalk addStartBlock:[
+"/ 	[
+"/ 	    doneWithStartupStuff wait.
+"/             'smalltalk.rc [info]: saving initial image for faster future startup ...' infoPrintCR.
+"/             ObjectMemory primSnapShotOn:'st.img'
+"/ 	] forkAt:1
+"/     ].
+"/ 
+"/     Smalltalk addStartBlock:[
+"/ 	[
+"/ 	    Delay waitForSeconds:10.
+"/ 	    doneWithStartupStuff signal
+"/ 	] forkAt:1
+"/     ].
+"/ ].
 !