Hi Ben.

2016-02-04 18:16 GMT+01:00 Ben Coman <btc@openinworld.com>:
SimpleMutex>>critical: aBlock
�� �� �� Processor activeProcess == owner
�� �� �� �� �� �� ifTrue: [self error: 'recursive locks will kill you' ].
�� �� �� ^ super critical: aBlock

This can be easily implemented with current primitive (I use inverted version here):

SimpleMutex>>critical: aBlock
acquiredHere := lock acquire.
acquiredHere ifFalse: [self error: 'recursive locks will kill you' ].
...

So what you want to change?