# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1004099008 -7200
# Node ID 74522496ce5d91c03d38691d74edb9ef55ed6a26
# Parent  9b1c0e9838dd206e4866c4a30956fa273e0e113d
*** empty log message ***

diff -r 9b1c0e9838dd -r 74522496ce5d smalltalk.rc
--- 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'.