--- a/StandardSystemView.st	Wed Feb 07 18:37:31 2018 +0100
+++ b/StandardSystemView.st	Thu Feb 08 17:50:15 2018 +0100
@@ -488,12 +488,14 @@
 cancelAutoRaise
     "cancel any schedule autoraise action"
 
-    |b|
+    |raiseBlock|
 
-    (b := TimedRaiseAction) notNil ifTrue:[
-	TimedRaiseAction := nil.
-	Processor removeTimeoutWithID:b.
+    (raiseBlock := TimedRaiseAction) notNil ifTrue:[
+        TimedRaiseAction := nil.
+        Processor removeTimedBlock:raiseBlock.
     ].
+
+    "Modified: / 08-02-2018 / 16:31:38 / stefan"
 !
 
 start
@@ -1101,7 +1103,7 @@
     "bring the window to the front after some delay.
      but not, if my windowGroup is in a modal or popup action"
 
-    |wg actionID|
+    |wg raiseBlock|
 
     (wg := self windowGroup) isNil ifTrue:[^ self].
     wg isInModalLoop ifTrue:[^ self].
@@ -1109,17 +1111,20 @@
     "/ self isModal ifTrue:[^ self].
 
     TimedRaiseAction notNil ifTrue:[
-	Processor removeTimeoutWithID:TimedRaiseAction.
+        Processor removeTimedBlock:TimedRaiseAction.
     ].
-    TimedRaiseAction := actionID := Processor
-			    addTimedBlock:
-				[
-				    TimedRaiseAction == actionID ifTrue:[
-					TimedRaiseAction := nil.
-					self sensor pushUserEvent: #delayedAutoRaiseEvent for: self
-				    ].
-				]
-			    afterMilliseconds:ms.
+    TimedRaiseAction := raiseBlock := [
+                    TimedRaiseAction == raiseBlock ifTrue:[
+                        TimedRaiseAction := nil.
+                        self sensor pushUserEvent: #delayedAutoRaiseEvent for: self
+                    ].
+                ].
+
+    Processor
+        addTimedBlock:raiseBlock
+        afterMilliseconds:ms.
+
+    "Modified: / 08-02-2018 / 17:48:22 / stefan"
 !
 
 showActivity:someMessage