I found this fix in my code which is another intended to preserve the
command-context integrity
Keith
---
PRCommand-context: aContext
context: aContext
(self isValidIn: aContext)
ifFalse: [ self error: self name , ' is not useable in the given
context.' ].
^ (aContext command: self new) command