Fixed problem with ProcedureXXXOccurrence