--- a/smalltalk.rc	Fri Oct 26 13:15:50 2001 +0200
+++ b/smalltalk.rc	Fri Oct 26 14:23:28 2001 +0200
@@ -545,26 +545,28 @@
 "/ (since all autoload-stuff will already be initialized)
 "/
 
-"/ '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
-"/     ].
-"/ ].
+ 'st.img' asFilename exists ifFalse:[
+   '.' asFilename isWritable ifTrue:[
+     |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
+     ].
+   ]
+ ].
 !
 
 Smalltalk fileIn:'hideBanner.rc'.