--- a/ProcessMonitor.st	Thu May 02 10:55:55 2002 +0200
+++ b/ProcessMonitor.st	Thu May 02 11:54:46 2002 +0200
@@ -364,6 +364,13 @@
                                 ].
 
                                 [c notNil
+                                and:[c receiver isBlock 
+                                and:[c selector = 'ensure:']]] whileTrue:[
+                                    c := c sender.
+                                    skipping := true.
+                                ].
+
+                                [c notNil
                                 and:[c receiver == OperatingSystem 
                                 and:[c selector == #unblockInterrupts]]] whileTrue:[
                                     c := c sender.
@@ -769,5 +776,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.78 2001-11-09 08:15:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.79 2002-05-02 09:54:46 cg Exp $'
 ! !