--- a/Launcher.st	Wed Feb 26 16:13:15 1997 +0100
+++ b/Launcher.st	Thu Feb 27 17:00:41 1997 +0100
@@ -1801,7 +1801,7 @@
 
     |box igcLimit igcFreeLimit igcFreeAmount newSpaceSize
      compressLimit
-     oldIncr component fields codeLimit codeTrigger|
+     oldIncr component fields codeLimit codeTrigger stackLimit|
 
     "/
     "/ extract relevant system settings ...
@@ -1814,6 +1814,7 @@
     compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
     codeLimit := ObjectMemory dynamicCodeLimit asValue.
     codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
+    stackLimit := Process defaultMaximumStackSize asValue.
 
     "/
     "/ create a box on those values ...
@@ -1823,9 +1824,9 @@
     box := DialogBox new.
     box label:(resources string:'Memory manager settings').
 
-    box addTextLabel:'Warning - invalid settings may result in poor performance.
-
-You have been warned.'.
+    (box addTextLabel:'Warning - invalid settings may result in failures or poor performance
+
+You have been warned.') adjust:#left.
     box addHorizontalLine.
 
     component := box 
@@ -1912,6 +1913,20 @@
     box addTextLabel:'(suppress compressing GC if more memory is in use)'.
     box addHorizontalLine.
 
+    component := box 
+                    addLabelledInputField:(resources string:'stack limit:')
+                    adjust:#right
+                    on:nil 
+                    tabable:true
+                    separateAtX:0.7.
+    component acceptOnLeave:false.
+    component converter:(PrintConverter new initForNumber).
+    component model:stackLimit.
+    fields add:component.
+
+    box addTextLabel:'(trigger recursionInterrupt if more stack is used by a process)'.
+    box addHorizontalLine.
+
     ObjectMemory supportsJustInTimeCompilation ifTrue:[
         component := box 
                         addLabelledInputField:(resources string:'dynamic code limit:')
@@ -1943,6 +1958,8 @@
     ].
 
     box addAbortButton; addOkButton.
+    box
+        addHelpButtonFor:'Launcher/memorySettings.html'.
 
     "/
     "/ show the box ...
@@ -1970,13 +1987,16 @@
         oldIncr value ~~ ObjectMemory oldSpaceIncrement ifTrue:[
             ObjectMemory oldSpaceIncrement:oldIncr value.
         ].
+        stackLimit value ~~ Process defaultMaximumStackSize ifTrue:[
+            Process defaultMaximumStackSize:stackLimit value.
+        ].
         ObjectMemory oldSpaceCompressLimit:compressLimit value.
         ObjectMemory dynamicCodeLimit:codeLimit value.
         ObjectMemory dynamicCodeGCTrigger:codeTrigger value.
     ].
     box destroy
 
-    "Modified: 8.1.1997 / 14:53:07 / cg"
+    "Modified: 27.2.1997 / 16:50:12 / cg"
 !
 
 messageSettings
@@ -4562,5 +4582,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.250 1997-02-26 15:13:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.251 1997-02-27 16:00:41 cg Exp $'
 ! !