--- a/WindowSensor.st	Tue Oct 13 14:38:47 1998 +0200
+++ b/WindowSensor.st	Wed Oct 14 18:17:29 1998 +0200
@@ -511,19 +511,20 @@
      access to the damage event queue. 
      (i.e. protected by a critical region)"
 
-    |wasBlocked|
-
-    wasBlocked := Processor activeProcess blockInterrupts.
+    |wasBlocked p|
+
+    p := Processor activeProcess.
+    wasBlocked := p blockInterrupts.
     [
         damageEventAccessLock critical:aBlock
     ] valueNowOrOnUnwindDo:[
         wasBlocked ifFalse:[
-            Processor activeProcess unblockInterrupts.
+            p unblockInterrupts.
         ]
     ]
 
     "Created: / 6.6.1998 / 21:04:02 / cg"
-    "Modified: / 6.6.1998 / 21:16:02 / cg"
+    "Modified: / 14.10.1998 / 17:17:05 / cg"
 !
 
 criticalUserEventQueueAccess:aBlock
@@ -531,19 +532,20 @@
      access to the user event queue. 
      (i.e. protected by a critical region)"
 
-    |wasBlocked|
-
-    wasBlocked := Processor activeProcess blockInterrupts.
+    |wasBlocked p|
+
+    p := Processor activeProcess.
+    wasBlocked := p blockInterrupts.
     [
         userEventAccessLock critical:aBlock
     ] valueNowOrOnUnwindDo:[
         wasBlocked ifFalse:[
-            Processor activeProcess unblockInterrupts.
+            p unblockInterrupts.
         ]
     ]
 
     "Created: / 6.6.1998 / 21:06:43 / cg"
-    "Modified: / 6.6.1998 / 21:16:17 / cg"
+    "Modified: / 14.10.1998 / 15:56:08 / cg"
 !
 
 damageEventAccessLock
@@ -2613,6 +2615,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.130 1998-09-08 13:12:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.131 1998-10-14 16:17:29 cg Exp $'
 ! !
 WindowSensor initialize!