--- a/DevWorkst.st	Thu May 07 19:41:36 1998 +0200
+++ b/DevWorkst.st	Fri May 08 00:25:16 1998 +0200
@@ -3425,8 +3425,12 @@
      This is only used with modal operation.
      (i.e. when in the modal debugger)"
 
-    [self eventPending] whileTrue:[
-	self dispatchEventFor:nil withMask:nil
+    Object osSignalInterruptSignal handle:[:ex |
+	ex return
+    ] do:[
+        [self eventPending] whileTrue:[
+	    self dispatchEventFor:nil withMask:nil
+	]
     ]
 !
 
@@ -5990,6 +5994,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.255 1998-04-28 14:25:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.256 1998-05-07 22:25:16 cg Exp $'
 ! !
 DeviceWorkstation initialize!

--- a/DeviceWorkstation.st	Thu May 07 19:41:36 1998 +0200
+++ b/DeviceWorkstation.st	Fri May 08 00:25:16 1998 +0200
@@ -3425,8 +3425,12 @@
      This is only used with modal operation.
      (i.e. when in the modal debugger)"
 
-    [self eventPending] whileTrue:[
-	self dispatchEventFor:nil withMask:nil
+    Object osSignalInterruptSignal handle:[:ex |
+	ex return
+    ] do:[
+        [self eventPending] whileTrue:[
+	    self dispatchEventFor:nil withMask:nil
+	]
     ]
 !
 
@@ -5990,6 +5994,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.255 1998-04-28 14:25:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.256 1998-05-07 22:25:16 cg Exp $'
 ! !
 DeviceWorkstation initialize!