--- a/DebugView.st	Mon May 06 20:59:41 1996 +0200
+++ b/DebugView.st	Tue May 07 11:29:17 1996 +0200
@@ -2121,7 +2121,8 @@
                 ].
                 self showError:ex errorString
             ] do:[
-                device dispatchModalWhile:[haveControl].
+                device dispatchModalWhile:[Processor activeProcess state:#debug.
+                                           haveControl].
             ]
         ].
         WindowGroup setActiveGroup:nil.
@@ -2179,13 +2180,14 @@
             ].
             ex return.
         ] do:[
-            windowGroup eventLoopWhile:[true] onLeave:[]
+            windowGroup eventLoopWhile:[Processor activeProcess state:#debug.
+                                        true] onLeave:[]
         ].
     ].
     catchBlock := nil.
 
     "Created: 24.11.1995 / 20:33:45 / cg"
-    "Modified: 23.3.1996 / 17:17:10 / cg"
+    "Modified: 7.5.1996 / 10:04:41 / cg"
 ! !
 
 !DebugView methodsFor:'user interaction'!
@@ -2538,5 +2540,5 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.80 1996-05-06 18:59:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.81 1996-05-07 09:29:17 cg Exp $'
 ! !