--- a/ProcessorScheduler.st	Fri Mar 07 23:06:46 2014 +0100
+++ b/ProcessorScheduler.st	Fri Mar 07 23:06:55 2014 +0100
@@ -2261,7 +2261,7 @@
     flipFlop := true.
 
     'Processor [info]: timeslicer started' infoPrintCR.
-    [true] whileTrue: [
+    [
         t ~~ TimeSliceInterval ifTrue:[
             "/ interval changed -> need a new delay
             myDelay delay:(t := TimeSliceInterval).
@@ -2280,7 +2280,7 @@
             ].
             scheduledProcesses := IdentitySet new.
         ].
-    ]
+    ] loop.
 ! !
 
 !ProcessorScheduler methodsFor:'semaphore signalling'!
@@ -2958,7 +2958,7 @@
         timeoutHandlerProcess :=
                 [
                     [
-                        [true] whileTrue:[
+                        [
                             [
                                 self timeoutHandlerProcessLoop
                             ] on:Exception do:[:ex|
@@ -2966,7 +2966,7 @@
                                 ('ProcessorScheduler [warning]: error while handling timeouts in TimeoutHandlerProcess: ''' , ex description , '''') infoPrintCR.
 "/                                thisContext fullPrintAll.
                             ].
-                        ]
+                        ] loop.
                     ] ensure:[
                         timeoutHandlerProcess := nil
                     ].
@@ -3448,11 +3448,11 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.280 2014-03-06 15:58:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.281 2014-03-07 22:06:55 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.280 2014-03-06 15:58:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.281 2014-03-07 22:06:55 stefan Exp $'
 ! !