--- a/ProcessorScheduler.st	Tue Dec 30 15:20:36 2014 +0100
+++ b/ProcessorScheduler.st	Tue Dec 30 15:28:47 2014 +0100
@@ -1544,7 +1544,7 @@
     [prio >= 1] whileTrue:[
         l := listArray at:prio.
         l notNil ifTrue:[
-            l do:[:aProcess |
+            l linksDo:[:aProcess |
                 aProcess processGroupId ~~ 0 ifTrue:[
                     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
                     ^ true.
@@ -2122,7 +2122,7 @@
             |list|
 
             (list := quiescentProcessLists at:i) size > 0 ifTrue:[
-                list do:[:aProcess |
+                list linksDo:[:aProcess |
                     |range prio|
 
                     (range := aProcess priorityRange) notNil ifTrue:[
@@ -3532,11 +3532,11 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.299 2014-12-30 12:47:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.300 2014-12-30 14:28:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.299 2014-12-30 12:47:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.300 2014-12-30 14:28:47 cg Exp $'
 ! !