--- a/ProcessorScheduler.st	Wed Feb 15 18:55:50 2006 +0100
+++ b/ProcessorScheduler.st	Wed Feb 15 19:02:28 2006 +0100
@@ -2212,15 +2212,13 @@
                 "/ every other tick, recompute priorities.
                 flipFlop := flipFlop not.
                 flipFlop ifTrue:[
-                    scheduledProcesses isNil ifTrue:[
-                        scheduledProcesses := IdentitySet new.
-                    ] ifFalse:[
+                    scheduledProcesses notNil ifTrue:[
                         supportDynamicPriorities == true ifTrue:[
                             self recomputeDynamicPriorities.
                         ].
                         scheduledProcesses removeAll.
                     ].
-
+                    scheduledProcesses := IdentitySet new.
                 ].
             ]
         ] ifCurtailed:[
@@ -3315,7 +3313,7 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.227 2005-07-08 17:15:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.228 2006-02-15 18:02:28 cg Exp $'
 ! !
 
 ProcessorScheduler initialize!