--- a/ObjectMemory.st	Fri Jan 24 20:37:34 1997 +0100
+++ b/ObjectMemory.st	Fri Jan 24 21:45:13 1997 +0100
@@ -1604,29 +1604,33 @@
     "/ its not useful, to run it more than once
     "/
     BackgroundCollectProcess notNil ifTrue:[
-	BackgroundCollectProcess priority:aPriority.
-	^ self
+        BackgroundCollectProcess priority:aPriority.
+        ^ self
     ].
 
     p :=
-	[
-	    [
-		[true] whileTrue:[
-		    self gcStepIfUseful ifTrue:[
-			"
-			 perform a full cycle
-			"
-			self incrementalGC
-		    ].
-		    "
-		     wait a bit
-		    "
-		    (Delay forSeconds:5) wait
-		]
-	    ] valueOnUnwindDo:[
-		BackgroundCollectProcess := nil
-	    ]
-	] newProcess.
+        [
+            [
+                |myDelay|
+
+                myDelay := Delay forSeconds:5.
+
+                [true] whileTrue:[
+                    self gcStepIfUseful ifTrue:[
+                        "
+                         perform a full cycle
+                        "
+                        self incrementalGC
+                    ].
+                    "
+                     wait a bit
+                    "
+                    myDelay wait
+                ]
+            ] valueOnUnwindDo:[
+                BackgroundCollectProcess := nil
+            ]
+        ] newProcess.
     p name:'background collector'.
     p priority:aPriority.
     p restartable:true.
@@ -1643,10 +1647,14 @@
     "
 
     "
+     ObjectMemory stopBackgroundCollector.
+
      ObjectMemory incrementalGCLimit:100000.
      ObjectMemory freeSpaceGCLimit:1000000.
-     ObjectMemory startBackgroundCollectorAt:5
+     ObjectMemory startBackgroundCollectorAt:5.
     "
+
+    "Modified: 24.1.1997 / 21:37:17 / cg"
 !
 
 stopBackgroundCollector
@@ -3975,6 +3983,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.132 1997-01-13 16:27:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.133 1997-01-24 20:44:27 cg Exp $'
 ! !
 ObjectMemory initialize!