--- a/ProcSched.st	Sun Feb 19 16:54:47 1995 +0100
+++ b/ProcSched.st	Sun Feb 19 17:14:37 1995 +0100
@@ -33,7 +33,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.30 1995-02-15 10:27:52 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.31 1995-02-19 16:14:17 claus Exp $
 '!
 
 Smalltalk at:#Processor put:nil!
@@ -56,7 +56,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.30 1995-02-15 10:27:52 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.31 1995-02-19 16:14:17 claus Exp $
 "
 !
 
@@ -318,7 +318,7 @@
     extern OBJ ___threadSwitch();
 
     if (__isSmallInteger(id)) {
-        ok = ___threadSwitch(__context, _intVal(id), (singleStep == true) ? 1 : 0);
+	ok = ___threadSwitch(__context, _intVal(id), (singleStep == true) ? 1 : 0);
     } else {
 	ok = false;
     }
@@ -1217,7 +1217,7 @@
      The idle actions are a leftover from previous ST/X releases and will
      vanish (installing a low-prio process has the same effect)."
 
-    |millis limit doingGC|
+    |millis doingGC|
 
     doingGC := true.
     [doingGC] whileTrue:[
@@ -1229,11 +1229,7 @@
 	].
 
 	"if its worth doing, collect a bit of garbage"
-	limit := ObjectMemory incrementalGCLimit.
-	doingGC := limit notNil and:[ObjectMemory oldSpaceAllocatedSinceLastGC > limit].
-	doingGC ifTrue:[
-	    ObjectMemory gcStep.
-	].
+	doingGC := ObjectMemory gcStepIfUseful.
 
 	"then do idle actions"
 	(idleActions notNil and:[idleActions size ~~ 0]) ifTrue:[