--- a/STXInstaller.st	Mon Apr 20 15:39:07 1998 +0200
+++ b/STXInstaller.st	Mon Apr 20 15:40:18 1998 +0200
@@ -265,19 +265,16 @@
 changeWritability
     |msg|
 
-    msg := (resources array:#('ST/X Installation' '' 'making target dir writable' '' '' '')) asStringCollection.
+    fullInstallation ifTrue:[
+        msg := (resources array:#('ST/X Installation' '' 'making target dir writable' '' '' '')) asStringCollection.
 
-    commandTraceView showCR:(resources string:'making target dir writable ...').
-    commandTraceView endEntry.
-    fullInstallation ifTrue:[
+        commandTraceView showCR:(resources string:'making target dir writable ...').
+        commandTraceView endEntry.
         OperatingSystem executeCommand:('(cd ' , fullDir , ' ; find . -exec chmod u+w {} \;)').
-    ] ifFalse:[
-        OperatingSystem executeCommand:('(cd ' , stxLibDir , ' ; find . -exec chmod u+w {} \;)').
     ].
-    ^ true
 
     "Created: / 17.7.1996 / 15:24:19 / cg"
-    "Modified: / 20.4.1998 / 15:38:59 / cg"
+    "Modified: / 20.4.1998 / 15:40:00 / cg"
 !
 
 copyFiles
@@ -458,10 +455,9 @@
     ] ifFalse:[
         OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)').
     ].
-    ^ true
 
     "Created: / 17.7.1996 / 15:24:19 / cg"
-    "Modified: / 25.2.1998 / 19:20:59 / cg"
+    "Modified: / 20.4.1998 / 15:40:11 / cg"
 !
 
 executeCommandAndShowOutput:cmd