--- a/ProcSched.st	Mon Jul 03 04:38:27 1995 +0200
+++ b/ProcSched.st	Sat Jul 22 21:25:26 1995 +0200
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.41 1995-07-02 01:07:53 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.42 1995-07-22 19:24:01 claus Exp $
 '!
 
 Smalltalk at:#Processor put:nil!
@@ -57,7 +57,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.41 1995-07-02 01:07:53 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.42 1995-07-22 19:24:01 claus Exp $
 "
 !
 
@@ -346,7 +346,7 @@
 	 destroy the bad process
 	"
 	p id ~~ 0 ifTrue:[
-	    'SCHEDULRER: problem with process ' errorPrint. 
+	    'SCHEDULER: problem with process ' errorPrint. 
 		p id errorPrint. 
 		p name notNil ifTrue:[
 		    ' (' errorPrint. p name errorPrint. ')' errorPrint.
@@ -1277,8 +1277,15 @@
 	    ].
 	].
 
-	"if its worth doing, collect a bit of garbage"
-	doingGC := ObjectMemory gcStepIfUseful.
+	"
+	 if its worth doing, collect a bit of garbage;
+	 but not, if a backgroundCollector is active
+	"
+	ObjectMemory backgroundCollectorRunning ifTrue:[
+	    doingGC := false
+	] ifFalse:[
+	    doingGC := ObjectMemory gcStepIfUseful.
+	].
 
 	"then do idle actions"
 	(idleActions notNil and:[idleActions size ~~ 0]) ifTrue:[