--- a/ProcessorScheduler.st	Wed Jul 10 10:23:22 2013 +0200
+++ b/ProcessorScheduler.st	Wed Jul 10 13:51:52 2013 +0200
@@ -1601,23 +1601,23 @@
 
     listArray := quiescentProcessLists.
     [prio >= 1] whileTrue:[
-	l := listArray at:prio.
-	l notNil ifTrue:[
-	    l isEmpty ifFalse:[
-		p := l first.
-		"
-		 if it got corrupted somehow ...
-		"
-		p id isNil ifTrue:[
-		    'Processor [warning]: process with nil id removed' errorPrintCR.
-		    l removeFirst.
-		    p := nil.
-		].
-		wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
-		^ p
-	    ]
-	].
-	prio := prio - 1
+        l := listArray at:prio.
+        l notNil ifTrue:[
+            l notEmpty ifTrue:[
+                p := l first.
+                "
+                 if it got corrupted somehow ...
+                "
+                p id isNil ifTrue:[
+                    'Processor [warning]: process with nil id removed' errorPrintCR.
+                    l removeFirst.
+                    p := nil.
+                ].
+                wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
+                ^ p
+            ]
+        ].
+        prio := prio - 1
     ].
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
     ^ nil
@@ -3377,11 +3377,11 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.271 2013-07-05 13:27:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.272 2013-07-10 11:51:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.271 2013-07-05 13:27:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.272 2013-07-10 11:51:52 cg Exp $'
 ! !