I'm not sure if I'm doing the wrong thing, or if I've bumped into a problem with step <Over>.

I'm trying to add some debugging support into multi-threaded code to help properly sequence debugging different priority processes. I've extracted a little demo...

TestCase subclass: #Example

instanceVariableNames: 'doCycle debug highPriorityProcess'

classVariableNames: ''

package: 'KernelX-DelayScheduler'

Example��>>��highPriorityCycle

debug ifTrue: [ self halt ].

Transcript show: 'H'.

Example�� >> highPriorityRunLoop

doCycle := Semaphore new.

^[ [ doCycle wait.

self highPriorityCycle ] repeat.

] forkAt: 45 named: 'Example high side'

Process >> isWaiting

^myList isKindOf: Semaphore

Example��>>�� wakeHighPriorityLoop

doCycle signal.

debug ifTrue: [�� "wait until high priority process is sleeping"

[ highPriorityProcess isWaiting & highPriorityProcess isTerminated not]��

whileFalse: [��

Transcript show: '.'.��

100 milliSeconds wait ].

self halt

].

Example��>>����testUserPriority

debug := true.

highPriorityProcess := self highPriorityRunLoop.

Transcript cr.

debug ifTrue: [self halt].

3 timesRepeat: [��

Transcript crShow: 'U'.��

self wakeHighPriorityLoop.].

highPriorityProcess terminate.