Wrapped procedure calls in protected type and added pragma Atomic to
appropriate identification variables.
Minor work on the AMI.Trace packaage also included.