* used by Control.Concurrent for error checking.
* ------------------------------------------------------------------------- */
* used by Control.Concurrent for error checking.
* ------------------------------------------------------------------------- */