--- a/ObjMem.st	Mon Nov 21 18:05:13 1994 +0100
+++ b/ObjMem.st	Tue Nov 22 15:28:10 1994 +0100
@@ -31,7 +31,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.19 1994-11-21 16:39:04 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.20 1994-11-22 14:27:17 claus Exp $
 '!
 
 !ObjectMemory class methodsFor:'documentation'!
@@ -52,7 +52,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.19 1994-11-21 16:39:04 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.20 1994-11-22 14:27:17 claus Exp $
 "
 !
 
@@ -1181,22 +1181,28 @@
     ].
     BackgroundCollectProcess :=
 	[
-	    IncrementalGCLimit notNil ifTrue:[
-		self oldSpaceAllocatedSinceLastGC > IncrementalGCLimit ifTrue:[
-		    "
-		     start a cycle
-		    "
-		    self incrementalGC
-		]
-	    ].
-	    "
-	     wait a bit
-	    "
-	    (Delay forSeconds:0.2) wait
+	    [true] whileTrue:[
+		IncrementalGCLimit notNil ifTrue:[
+		    self oldSpaceAllocatedSinceLastGC > IncrementalGCLimit ifTrue:[
+			"
+			 start a cycle
+			"
+			self incrementalGC
+		    ]
+		].
+		"
+		 wait a bit
+		"
+		(Delay forSeconds:0.5) wait
+	    ]
 	] newProcess.
     BackgroundCollectProcess name:'background collector'.
     BackgroundCollectProcess priority:aPriority.
     BackgroundCollectProcess resume
+
+    "
+     ObjectMemory startBackgroundCollectorAt:5
+    "
 !
 
 stopBackgroundCollector
@@ -1206,6 +1212,9 @@
 	BackgroundCollectProcess terminate.
 	BackgroundCollectProcess := nil
     ]
+    "
+     ObjectMemory stopBackgroundCollector
+    "
 ! !
 
 !ObjectMemory class methodsFor:'garbage collector control'!
@@ -1220,7 +1229,10 @@
     IncrementalGCLimit := aNumber
 
     "
+     ObjectMemory incrementalGCLimit:500000
      ObjectMemory incrementalGCLimit:100000
+     ObjectMemory incrementalGCLimit:10000
+     ObjectMemory incrementalGCLimit:nil 
     "
 !