--- a/STXInstaller.st	Fri Oct 26 16:46:11 2001 +0200
+++ b/STXInstaller.st	Fri Oct 26 18:32:55 2001 +0200
@@ -441,8 +441,10 @@
 
     installWhat == #full ifTrue:[
         "/ MUST be under stx (for packagePath stuff)
-        fullDir := fullDir asFilename constructString:'stx'.
-        
+        fullDir asFilename baseName ~= 'stx' ifTrue:[
+            fullDir := fullDir asFilename constructString:'stx'.
+        ].
+
         msg at:4 put:('    all from CD' asText allBold).
         msg at:6 put:'    ' , (fullDir asText allBold).
         actionTextHolder value:nil.
@@ -450,12 +452,23 @@
 
         actionPercentageHolder value:-1.
         OperatingSystem isUNIXlike ifTrue:[
+            cmd := '(cd ' , topDir , '/doc/online ; find . -type s -exec rm {} \; )'.
+            commandTraceView showCR:'removing symbolic links ...'.
+            commandTraceView endEntry.
+            self executeCommandAndShowOutput:cmd emphasize:false.
+self halt.
             cmd := '(cd ' , topDir , ' ; tar cf - .) | (cd ' , fullDir , ' ; tar xvf -)'.
             commandTraceView showCR:'copying ...'.
             commandTraceView endEntry.
             cmd := cmd , ' 2>&1' .
 
             self executeCommandAndShowOutput:cmd emphasize:false.
+
+            cmd := '(cd ' , fullDir , '/doc/online ; make )'.
+            commandTraceView showCR:'creating symbolic links ...'.
+            commandTraceView endEntry.
+            self executeCommandAndShowOutput:cmd emphasize:false.
+
         ] ifFalse:[
             fullDir asFilename exists ifFalse:[
                 commandTraceView showCR:(resources string:'creating %1 ...' with:fullDir asFilename pathName).
@@ -1499,7 +1512,7 @@
     textView := HVScrollableView for:TextCollector in:v.
     textView origin:0.0@0.0 corner:1.0@1.0.
     textView bottomInset:30.
-    textView lineLimit:6000.
+    textView lineLimit:10000.
     commandTraceView := textView scrolledView.
 
     installWhat == #full ifTrue:[