--- a/STXInstaller.st	Mon Apr 20 00:56:37 1998 +0200
+++ b/STXInstaller.st	Mon Apr 20 15:38:13 1998 +0200
@@ -262,6 +262,24 @@
 
 !STXInstaller methodsFor:'installing'!
 
+changeWritability
+    |msg dirsToMake numDirs nDone|
+
+    msg := (resources array:#('ST/X Installation' '' 'making target dir writable' '' '' '')) asStringCollection.
+
+    commandTraceView showCR:(resources string:'making target dir writable ...').
+    commandTraceView endEntry.
+    fullInstallation ifTrue:[
+        OperatingSystem executeCommand:('(cd ' , fullDir , ' ; find . -exec chmod u+w {} \;)').
+    ] ifFalse:[
+        OperatingSystem executeCommand:('(cd ' , stxLibDir , ' ; find . -exec chmod u+w {} \;)').
+    ].
+    ^ true
+
+    "Modified: / 25.2.1998 / 19:20:59 / cg"
+    "Created: / 20.4.1998 / 15:37:52 / cg"
+!
+
 copyFiles
     |msg fileSpec filesToCopy numFiles nDone cmd|
 
@@ -1095,6 +1113,7 @@
                           doDfMonitoring := true.
                           ok := self copyFiles
                       ].
+                      self changeWritability.
                       self createSymbolicLinks.
 
                       progressValue value:100.
@@ -1134,7 +1153,7 @@
     "
 
     "Created: / 17.7.1996 / 15:11:27 / cg"
-    "Modified: / 25.2.1998 / 22:57:10 / cg"
+    "Modified: / 20.4.1998 / 15:36:40 / cg"
 !
 
 open