--- a/Launcher.st	Mon Mar 18 13:00:04 1996 +0100
+++ b/Launcher.st	Tue Mar 19 14:44:43 1996 +0100
@@ -956,6 +956,7 @@
 
 memorySettings
     |box check igcLimit igcFreeLimit igcFreeAmount newSpaceSize
+     compressLimit
      oldIncr y component fields|
 
     "/
@@ -966,6 +967,7 @@
     igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
     newSpaceSize := ObjectMemory newSpaceSize asValue.
     oldIncr := ObjectMemory oldSpaceIncrement asValue.
+    compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
 
     "/
     "/ create a box on those values ...
@@ -1040,6 +1042,17 @@
 
     box addHorizontalLine.
 
+    y := box yPosition.
+    component := box addTextLabel:(resources string:'oldspace compress limit:').
+    component width:0.7; adjust:#right; borderWidth:0.
+    box yPosition:y.
+    component := box addInputFieldOn:compressLimit tabable:true.
+    fields add:component.
+    component width:0.3; left:0.7; acceptOnLeave:false.
+    component converter:(PrintConverter new initForNumber).
+    box addTextLabel:'(suppress compressing GC if more memory is in use)'.
+
+    box addHorizontalLine.
     box addAbortButton; addOkButton.
 
     "/
@@ -1068,6 +1081,7 @@
 	oldIncr value ~~ ObjectMemory oldSpaceIncrement ifTrue:[
 	    ObjectMemory oldSpaceIncrement:oldIncr value.
 	].
+	ObjectMemory oldSpaceCompressLimit:compressLimit value.
     ].
     box destroy
 
@@ -2380,5 +2394,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.98 1996-03-07 18:44:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.99 1996-03-19 13:44:43 cg Exp $'
 ! !