--- a/DebugView.st	Wed Feb 22 19:14:38 2017 +0100
+++ b/DebugView.st	Thu Feb 23 14:07:55 2017 +0100
@@ -4588,25 +4588,29 @@
     updateProcess isNil ifTrue:[
         updateProcess :=
             [
-                [true] whileTrue:[
+                |delay|
+
+                delay := Delay forSeconds:0.25.
+                [
                     monitorToggle showLamp ifTrue:[
                         monitorToggle lampColor:(Color yellow).
                     ] ifFalse:[
                         monitorToggle activeForegroundColor:Color black.
                     ].
-                    (Delay forSeconds:0.25) wait.
+                    delay wait.
                     self updateContext.
                     monitorToggle showLamp ifTrue:[
                         monitorToggle lampColor:(Color red).
                     ] ifFalse:[
                         monitorToggle activeForegroundColor:Color red.
                     ].
-                    (Delay forSeconds:0.25) wait.
+                    delay wait.
                     self updateContext.
-                ]
+                ] loop
             ] forkAt:(Processor activePriority - 1)
     ]
 
+    "Modified: / 23-02-2017 / 13:25:32 / stefan"
 !
 
 browseBlocksHome