--- a/ProcessorScheduler.st	Sat Aug 08 13:41:56 1998 +0200
+++ b/ProcessorScheduler.st	Sun Aug 09 16:26:08 1998 +0200
@@ -1939,9 +1939,13 @@
 
                 "/ every second tick, recompute priorities.
                 supportDynamicPriorities == true ifTrue:[
-                    flipFlop := flipFlop not.
-                    flipFlop ifTrue:[
-                       self recomputeDynamicPriorities
+                    scheduledProcesses isNil ifTrue:[
+                        scheduledProcesses := IdentitySet new.
+                    ] ifFalse:[
+                        flipFlop := flipFlop not.
+                        flipFlop ifTrue:[
+                           self recomputeDynamicPriorities
+                        ]
                     ]
                 ] ifFalse:[
                     scheduledProcesses := nil
@@ -1963,7 +1967,7 @@
     "
 
     "Created: / 17.1.1997 / 16:42:02 / cg"
-    "Modified: / 4.8.1998 / 00:15:39 / cg"
+    "Modified: / 8.8.1998 / 15:57:08 / cg"
 !
 
 stopTimeSlicing
@@ -2828,6 +2832,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.158 1998-08-05 08:51:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.159 1998-08-09 14:26:08 cg Exp $'
 ! !
 ProcessorScheduler initialize!