--- a/ProcessorScheduler.st	Sun Mar 16 17:44:07 2014 +0100
+++ b/ProcessorScheduler.st	Mon Mar 17 03:08:04 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.281 2014-03-07 22:06:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.282 2014-03-17 02:08:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.281 2014-03-07 22:06:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.282 2014-03-17 02:08:04 cg Exp $'
 ! !