diff -r 0854fb9b7e58 -r 7b284c5bcaba DebugView.st --- a/DebugView.st Mon Feb 05 00:40:23 2018 +0100 +++ b/DebugView.st Tue Feb 06 10:31:14 2018 +0100 @@ -2345,6 +2345,8 @@ grabber := nil. ]. + "/ Processor activeProcess priorityRange:nil; priority:8. + (exitAction == #step) ifTrue:[ " schedule another stepInterrupt @@ -8443,15 +8445,22 @@ either continue, return or step is pressed " + |process savedPriorityRange savedPriority| + + process := Processor activeProcess. + savedPriorityRange := process priorityRange. + savedPriority := process priority. + process priorityRange:nil; priority:(Processor userSchedulingPriority). + haveControl := true. [ [haveControl] whileTrue:[ -AbortOperationRequest handle:[:ex | -] do:[ - self controlLoopCatchingErrors -] + AbortOperationRequest ignoreIn:[ + self controlLoopCatchingErrors + ] ]. ] ensure:[ + process priorityRange:savedPriorityRange; priority:savedPriority. catchBlock := nil. haveControl := false ].